diff options
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 12 |
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; } |