Subject: 3613569 Handle case when TclpTempFileNameForLibrary returns NULL.

From: dgp <[email-masked]>
Date: Mon, 20 May 2013 15:10:18 +0000

---
 generic/tclIOUtil.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 25ed57c..6259216 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -3225,6 +3225,9 @@ Tcl_LoadFile(
      */
 
     copyToPtr = TclpTempFileNameForLibrary(interp, pathPtr);
+    if (copyToPtr == NULL) {
+	return TCL_ERROR;
+    }
     Tcl_IncrRefCount(copyToPtr);
 
     copyFsPtr = Tcl_FSGetFileSystemForPath(copyToPtr);
-- 
cgit v0.12