summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-20 15:10:18 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-20 15:10:18 (GMT)
commit025d1997eb38b0e80e4f298ba4c5a675d927579d (patch)
tree61ac0a1b2ff0c423a95c233c8aa1878aa48c011d
parent648841a413df682da795865db714428f8f6e2d47 (diff)
downloadtcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.zip
tcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.tar.gz
tcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.tar.bz2
3613569 Handle case when TclpTempFileNameForLibrary returns NULL.
-rw-r--r--generic/tclIOUtil.c3
1 files changed, 3 insertions, 0 deletions
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);