From 5c6384dd24ce57862193d31eda2d61a047e8ac97 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 28 Apr 2003 13:31:38 +0000
Subject: [PATCH] glob case-insensitivity in zipvfs

---
 ChangeLog          | 5 +++++
 library/zipvfs.tcl | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

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]]
-- 
2.23.0