From: abv <abv@opencascade.com>
Date: Fri, 17 May 2013 16:24:26 +0000 (+0400)
Subject: 0023970: Ignore dot-paths when searching for data files
X-Git-Tag: V6_7_0_beta~257
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=80482e01782dd1fa602d5a7ee478e60437a3d589;p=occt-copy.git

0023970: Ignore dot-paths when searching for data files
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 325ae5b7cf..29a64e4a7c 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -759,10 +759,12 @@ proc locate_data_file {filename} {
 	    while {[llength $dir] != 0} { 
 	        set name [lindex $dir 0]
 		set dir [lrange $dir 1 end]
-		eval lappend dir [glob -nocomplain -directory $name -type d *]
+                # skip directories starting with dot
+                if { [regexp {^[.]} $name] } { continue }
 		if { [file exists $name/$filename] } {
 		    return [file normalize $name/$filename]
 		}
+		eval lappend dir [glob -nocomplain -directory $name -type d *]
 	    }
 	}
     }