diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-12-09 13:02:10 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-12-09 13:07:55 +1000 |
commit | 6d723d81e647cf8814eccfe65321a7a0e7557a2b (patch) | |
tree | a4f5759fa269b9be217bbecb7aa8f33f80b5128d /glob.tcl | |
parent | 120cda31474cdca521ce6e31cd4df388ba806b5e (diff) | |
download | jimtcl-6d723d81e647cf8814eccfe65321a7a0e7557a2b.zip jimtcl-6d723d81e647cf8814eccfe65321a7a0e7557a2b.tar.gz jimtcl-6d723d81e647cf8814eccfe65321a7a0e7557a2b.tar.bz2 |
glob: remove some leftover unused code in glob.tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'glob.tcl')
-rw-r--r-- | glob.tcl | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -35,7 +35,6 @@ proc glob.globdir {dir pattern} { # alternatives inside the given pattern, prepending the unprocessed # part of the pattern. Does _not_ handle escaped braces or commas. proc glob.explode {pattern} { - set orig $pattern set oldexp {} set newexp {""} @@ -122,7 +121,6 @@ proc glob {args} { set nocomplain 0 set base "" set tails 0 - set complain "" set n 0 foreach arg $args { |