From 80482e01782dd1fa602d5a7ee478e60437a3d589 Mon Sep 17 00:00:00 2001
From: abv <abv@opencascade.com>
Date: Fri, 17 May 2013 20:24:26 +0400
Subject: [PATCH] 0023970: Ignore dot-paths when searching for data files

---
 src/DrawResources/TestCommands.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 *]
 	    }
 	}
     }
-- 
2.39.5