blob: de1d848d80980dde7deb6bd23a624d530ddc78d7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- tcl/shader.tcl.orig 2015-06-23 18:03:50 UTC
+++ tcl/shader.tcl
@@ -76,14 +76,14 @@
foreach p $spathstr {
set files [glob -nocomplain "${p}/*${sext}"]
- append allfiles "$files "
+ append temp "$files "
}
set allshaders ""
- foreach f $allfiles {
+ foreach s $temp {
# silently omit unreadable shader files
- if {[file readable $f]} {
- lappend allshaders $f
+ if {[file readable $s]} {
+ lappend allshaders $s
}
}
# foreach
|
