blob: d5bd811ee785c8e5e6a09d9624f6f098112bff28 (
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 2016-01-13 20:09:57 UTC
+++ tcl/shader.tcl
@@ -76,14 +76,14 @@ proc shader_scanAll {} {
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
|
