Tcl Source Code: Artifact [728f774e27]

Artifact 728f774e27d807f4b303c6e105e90b7251955c6e:

Attachment "tclFileName.c.patch" to ticket [3475569fff] added by sebres 2012-01-18 23:37:38.

Index: tclFileName.c
===================================================================
--- tclFileName.c
+++ tclFileName.c
@@ -799,6 +799,11 @@
      */
 
     Tcl_IncrRefCount(ret);
+    // [SB] if will be deleted - prevent leaks on pathPtr (refCount) by ObjDeletePending (delayed free) :
+    if (!Tcl_IsShared(lobj)) {
+	// free list now :
+	TclFreeIntRep(lobj);
+    };
     Tcl_DecrRefCount(lobj);
     ret->refCount--;
     return ret;