forked from hummypkg/webif
Prevent subst from processing commands or variables in filenames
This commit is contained in:
parent
d4a0117fab
commit
1725bce452
@ -83,7 +83,8 @@ proc get_data {} {
|
|||||||
regsub -- { \([^\)]+\)$} $line "" line
|
regsub -- { \([^\)]+\)$} $line "" line
|
||||||
set ext [file extension $line]
|
set ext [file extension $line]
|
||||||
if {$ext ni $exts} continue
|
if {$ext ni $exts} continue
|
||||||
set file [subst [string range $line 1 end]]
|
set file [subst -nocommands -novariables \
|
||||||
|
[string range $line 1 end]]
|
||||||
# Skip HD-Fox TSR buffer
|
# Skip HD-Fox TSR buffer
|
||||||
if {$file eq "/media/drive1/.tsr/0.ts"} {
|
if {$file eq "/media/drive1/.tsr/0.ts"} {
|
||||||
continue
|
continue
|
||||||
|
Loading…
Reference in New Issue
Block a user