diff options
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 10 |
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; } |