Artifact 169bee81f766fb480f7ce60a802ee346b8580941:

• File tcl/patches/8.6.0/tcl-8.6.0-bug3613569-1segfaultonnotmp.diff — part of check-in [6d957a95a7] at 2013-05-18 18:44:49 on branch trunk — Added patches for Tcl 8.6.0 related to not having a writable /tmp (user: rkeene, size: 750) [annotate] [blame] [check-ins using]

diff -uNr tcl8.6.0.orig/generic/tclIOUtil.c tcl8.6.0-1segfaultonnotmp/generic/tclIOUtil.c
--- tcl8.6.0.orig/generic/tclIOUtil.c	2012-10-25 06:43:59.000000000 -0500
+++ tcl8.6.0-1segfaultonnotmp/generic/tclIOUtil.c	2013-05-18 13:23:32.370452500 -0500
@@ -3228,9 +3228,15 @@
      */
 
     copyToPtr = TclpTempFileNameForLibrary(interp, pathPtr);
-    Tcl_IncrRefCount(copyToPtr);
 
-    copyFsPtr = Tcl_FSGetFileSystemForPath(copyToPtr);
+    if (copyToPtr != NULL) {
+        Tcl_IncrRefCount(copyToPtr);
+
+        copyFsPtr = Tcl_FSGetFileSystemForPath(copyToPtr);
+    } else {
+        copyFsPtr = NULL;
+    }
+
     if ((copyFsPtr == NULL) || (copyFsPtr == fsPtr)) {
 	/*
 	 * We already know we can't use Tcl_FSLoadFile from this filesystem,