summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'unix/tclUnixTest.c')
-rw-r--r--unix/tclUnixTest.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index f3414f5..955f719 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixTest.c,v 1.17 2004/05/27 13:18:55 dkf Exp $
+ * RCS: @(#) $Id: tclUnixTest.c,v 1.18 2004/06/18 20:38:02 dgp Exp $
*/
#include "tclInt.h"
@@ -446,6 +446,7 @@ TestfindexecutableCmd(clientData, interp, argc, argv)
{
char *oldName;
char *oldNativeName;
+ int oldDone;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # arguments: should be \"", argv[0],
@@ -455,9 +456,11 @@ TestfindexecutableCmd(clientData, interp, argc, argv)
oldName = tclExecutableName;
oldNativeName = tclNativeExecutableName;
+ oldDone = tclFindExecutableSearchDone;
tclExecutableName = NULL;
tclNativeExecutableName = NULL;
+ tclFindExecutableSearchDone = 0;
Tcl_FindExecutable(argv[1]);
if (tclExecutableName != NULL) {
@@ -468,8 +471,9 @@ TestfindexecutableCmd(clientData, interp, argc, argv)
ckfree(tclNativeExecutableName);
}
- tclExecutableName = oldName;
- tclNativeExecutableName = oldNativeName;
+ tclExecutableName = oldName;
+ tclNativeExecutableName = oldNativeName;
+ tclFindExecutableSearchDone = oldDone;
return TCL_OK;
}