From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 1 Feb 2002 13:38:54 +0000 (+0000)
Subject: types fix
X-Git-Tag: vfs-1-2~69
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=7de8f3473c1cd1da643e7f291698c02513260cd9;p=tclvfs

types fix
---

diff --git a/ChangeLog b/ChangeLog
index ea2cc24..87e05c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2002-02-01 Vince Darley <vincentdarley@sourceforge.net>
+	* generic/vfs.c: allow 'pattern' to be NULL in calls to 
+	Tcl_FSMatchInDirectory in preparation for fix of Tcl bug
+	511666.  This will require additions to each individual
+	filesystem to handle that special case (and thereby fix the
+	bug that fully specified files were not matched against
+	'types').
+
 2002-01-28 Vince Darley <vincentdarley@sourceforge.net>
 	* generic/vfs.c: const, MacOS fixes (also thanks Daniel Steffen).
 
diff --git a/generic/vfs.c b/generic/vfs.c
index c7d2d51..070669d 100644
--- a/generic/vfs.c
+++ b/generic/vfs.c
@@ -1275,7 +1275,11 @@ VfsMatchInDirectory(
 	type = types->type;
     }
 
-    Tcl_ListObjAppendElement(interp, mountCmd, Tcl_NewStringObj(pattern,-1));
+    if (pattern == NULL) {
+	Tcl_ListObjAppendElement(interp, mountCmd, Tcl_NewObj());
+    } else {
+	Tcl_ListObjAppendElement(interp, mountCmd, Tcl_NewStringObj(pattern,-1));
+    }
     Tcl_ListObjAppendElement(interp, mountCmd, Tcl_NewIntObj(type));
     Tcl_SaveResult(interp, &savedResult);
     /* Now we execute this mount point's callback. */