diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-29 05:06:11 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-29 05:06:11 +0000 |
commit | 5322c26f10c82732d4fb514e36284339e10305ec (patch) | |
tree | e81dc76d53982a84f13814f5cd9982a688476f54 | |
parent | 615e4289ec90871791cea6edc70ce6a9d4be4f3c (diff) |
remove all { } chars from filenames, until Pd can handle themHEADsvn2git-headexternals/tclfile
svn path=/trunk/externals/tclfile/; revision=15803
-rw-r--r-- | tclfile.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tclfile.tcl b/tclfile.tcl index 61db3f2..0b5e6a2 100644 --- a/tclfile.tcl +++ b/tclfile.tcl @@ -22,7 +22,7 @@ proc tclfile::expand_vars {filename} { if {[catch {set got $::env($varname)} fid]} { #puts stderr "caught $fid" } else { - set sub [string map [list "\$$varname" $got \{ "" \} ""] $filename] + set sub [string map [list "\$$varname" $got] $filename] # TODO this should really be a regex that properly # recognizes {} around the symbol as separate from just {} # used in a filename. But first, Pd will need a full @@ -30,5 +30,5 @@ proc tclfile::expand_vars {filename} { #set sub [regsub "\(.+\)HOME\(.+\)" $sub "==\1==$got==\2=="] } } - return $sub + return [string map {\{ "" \} ""} $sub] } |