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 | dca34fd2a8e63fc14396f851889696c3793a2a1d (patch) | |
| tree | 61ac0a1b2ff0c423a95c233c8aa1878aa48c011d /generic/tclIOUtil.c | |
| parent | 0eb5b1db67343f2a0f3ca3acaf567db4f3c7b9cf (diff) | |
| download | tcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.zip tcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.tar.gz tcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.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); |