glob case-insensitivity in zipvfs

diff --git a/ChangeLog b/ChangeLog
index 5888691383b9f4105b314bfbfdbbf3816312562a..700511330ef62dfd24f38fef84e17d46c0e8279b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-29  Vince Darley <vincentdarley@sourceforge.net>
+
+       * library/zipvfs.tcl: patterns in 'glob' should be case-insensitive
+       since everything else is.
+       
 2003-04-04  Andreas Kupries  <andreask@activestate.com>
 
        * configure.in:

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 27a21f49799a4a39045336c6b3362441091f4d03..df350c264c096ead325f432c3482eca23ca2ffc3 100644 (file)
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -455,11 +455,11 @@ proc zip::getdir {fd path {pat *}} {
     upvar #0 zip::$fd.toc toc
 
     if { $path == "." || $path == "" } {
-       set path $pat
+       set path [string tolower $pat]
     } else {
        set path [string tolower $path]
        if {$pat != ""} {
-           append path /$pat
+           append path /[string tolower $pat]
        }
     }
     set depth [llength [file split $path]]