From 5322c26f10c82732d4fb514e36284339e10305ec Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 29 Nov 2011 05:06:11 +0000
Subject: remove all { } chars from filenames, until Pd can handle them

svn path=/trunk/externals/tclfile/; revision=15803
---
 tclfile.tcl | 4 ++--
 1 file 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]
 }
-- 
cgit v1.2.1