summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c12
1 files changed, 10 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index dd9730c..085d99c 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.18 2000/05/19 21:30:16 hobbs Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.19 2000/07/26 01:28:49 davidg Exp $
*/
#define TCL_TEST
@@ -586,7 +586,15 @@ AsyncHandlerProc(clientData, interp, code)
listArgv[2] = string;
listArgv[3] = NULL;
cmd = Tcl_Merge(3, listArgv);
- code = Tcl_Eval(interp, cmd);
+ if (interp != NULL) {
+ code = Tcl_Eval(interp, cmd);
+ } else {
+ /*
+ * this should not happen, but by definition of how async
+ * handlers are invoked, it's possible. Better error
+ * checking is needed here.
+ */
+ }
ckfree(cmd);
return code;
}