From 7de8f3473c1cd1da643e7f291698c02513260cd9 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Fri, 1 Feb 2002 13:38:54 +0000 Subject: [PATCH] types fix --- ChangeLog | 8 ++++++++ generic/vfs.c | 6 +++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index ea2cc24..87e05c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2002-02-01 Vince Darley + * 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 * 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. */ -- 2.23.0