diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-09-08 12:22:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-09-08 12:22:25 (GMT) |
| commit | 498f733a1bd10ee1f6e8f97a3f8f4021ac9faa1f (patch) | |
| tree | f200dbc1517d00c2c1f81926ce115bc485a9aed2 /generic/tclIOUtil.c | |
| parent | e1f4100c039c4d48b36b43317861594cda900e55 (diff) | |
| parent | 9e2fa9ea7edc34ebf959378f2bdbe0521bd7d2e4 (diff) | |
| download | tcl-498f733a1bd10ee1f6e8f97a3f8f4021ac9faa1f.zip tcl-498f733a1bd10ee1f6e8f97a3f8f4021ac9faa1f.tar.gz tcl-498f733a1bd10ee1f6e8f97a3f8f4021ac9faa1f.tar.bz2 | |
merge 8.6.1
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); |