From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 28 Apr 2003 13:31:38 +0000 (+0000)
Subject: glob case-insensitivity in zipvfs
X-Git-Tag: vfs-1-3~24
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=5c6384dd24ce57862193d31eda2d61a047e8ac97;p=tclvfs

glob case-insensitivity in zipvfs
---

diff --git a/ChangeLog b/ChangeLog
index 5888691..7005113 100644
--- 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 27a21f4..df350c2 100644
--- 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]]