summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-08-25 11:35:01 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-08-25 11:35:01 (GMT)
commit5d964e0e6cf53fdbfb627ec0846131dae369f644 (patch)
treefd67c4df954da5d9030c959d0668dbc513b0c22b /unix
parentea11a4da28d3e9a1c80627b23e83b34a7d73baf1 (diff)
parent4b8109368625d2b5d9c74f7f2375925b57860efa (diff)
downloadtcl-5d964e0e6cf53fdbfb627ec0846131dae369f644.zip
tcl-5d964e0e6cf53fdbfb627ec0846131dae369f644.tar.gz
tcl-5d964e0e6cf53fdbfb627ec0846131dae369f644.tar.bz2
Fix [0df7a1ec2674a76a]: unix/tclUnixFile.c: return value of call to TclpGetCwd in TclpFindExecutable is not checked, variable cwd is used uninitialized.
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixFile.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index 2cb0027..7ffbf8d 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -155,6 +155,11 @@ TclpFindExecutable(
goto done;
}
+ if (TclpGetCwd(NULL, &cwd) == NULL) {
+ TclSetObjNameOfExecutable(Tcl_NewObj(), NULL);
+ goto done;
+ }
+
/*
* The name is relative to the current working directory. First strip off
* a leading "./", if any, then add the full path name of the current
@@ -168,8 +173,6 @@ TclpFindExecutable(
Tcl_DStringInit(&nameString);
Tcl_DStringAppend(&nameString, name, -1);
- TclpGetCwd(NULL, &cwd);
-
Tcl_DStringFree(&buffer);
Tcl_UtfToExternalDString(NULL, Tcl_DStringValue(&cwd),
Tcl_DStringLength(&cwd), &buffer);