diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 12:11:20 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:44 +1000 |
commit | 9652302fec62f76bf894c6b9eb849bda6994c293 (patch) | |
tree | ca40df6d8ea59c853066b7c5361238d8fdc6be49 /jim-exec.c | |
parent | a7335808c5725934d81dbe68247b62a6ab08bf2f (diff) | |
download | jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.zip jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.tar.gz jimtcl-9652302fec62f76bf894c6b9eb849bda6994c293.tar.bz2 |
Various general fixes and cleanups
Add lsearch -command, update case to use lsearch
Rename tcl6.tcl to tclcompat.tcl
Remove // style comments
Expand some tabs to spaces
Fix some compiler warnings
Remove some unused functions
Don't close fd=-1 in exec
Diffstat (limited to 'jim-exec.c')
-rw-r--r-- | jim-exec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -126,8 +126,8 @@ Jim_ExecCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) if (result < 0) { Jim_SetResultErrno(interp, "error reading from output pipe"); } + close(outputId); } - close(outputId); if (Jim_CleanupChildren(interp, numPids, pidPtr, errorId) != JIM_OK) { result = JIM_ERR; |