Artifact
3f3a01cb9cd30bf3c211c3c993171a31b64acc45:
Attachment "918320.patch" to
ticket [918320ffff]
added by
dgp
2004-03-30 01:12:10.
Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.27
diff -u -r1.27 tclPathObj.c
--- generic/tclPathObj.c 26 Mar 2004 19:04:49 -0000 1.27
+++ generic/tclPathObj.c 29 Mar 2004 18:00:01 -0000
@@ -841,6 +841,8 @@
}
ptr++;
}
+ }
+ if (equal) {
if (res != NULL) Tcl_DecrRefCount(res);
/*
* This element is just what we want to return already -