types fix

diff --git a/ChangeLog b/ChangeLog
index ea2cc24545b3702adacb8cafa275f13e463c8128..87e05c16ecfe1409061ab483728926492bfc1fd6 100644 (file)
--- 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 c7d2d5194991d3ecc9754d23049635020c8119bb..070669df18b029fb2eae2d7aaa8226df5bb498e0 100644 (file)
--- 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. */