diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-20 15:10:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-20 15:10:18 (GMT) |
| commit | 025d1997eb38b0e80e4f298ba4c5a675d927579d (patch) | |
| tree | 61ac0a1b2ff0c423a95c233c8aa1878aa48c011d /generic/tclIOUtil.c | |
| parent | 648841a413df682da795865db714428f8f6e2d47 (diff) | |
| download | tcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.zip tcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.tar.gz tcl-025d1997eb38b0e80e4f298ba4c5a675d927579d.tar.bz2 | |
3613569 Handle case when TclpTempFileNameForLibrary returns NULL.
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 3 |
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); |