Tcl Source Code: Artifact [bb34b4d444]

Artifact bb34b4d444f7f91f9929bc587ca24fcdd2169269:

Attachment "940281.patch" to ticket [940281ffff] added by dgp 2004-04-23 03:30:23.

Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.29
diff -u -r1.29 tclPathObj.c
--- generic/tclPathObj.c	6 Apr 2004 22:25:54 -0000	1.29
+++ generic/tclPathObj.c	22 Apr 2004 20:11:29 -0000
@@ -918,6 +918,9 @@
 	    Tcl_SetObjLength(res, length);
 	}
     }
+    if (NULL == res) {
+	res = Tcl_NewObj();
+    }
     return res;
 }