diff options
| author | davidg <davidg> | 2000-07-26 01:28:49 (GMT) |
|---|---|---|
| committer | davidg <davidg> | 2000-07-26 01:28:49 (GMT) |
| commit | 1e09e0a51157bce655a6cb8ef0490121f4cf8fe2 (patch) | |
| tree | f467b514b38eb66a79ab499ec7a8b9ca0f0791e3 /generic/tclTest.c | |
| parent | 54614f84cbcd150e2663bd4d30fe843b5e6da767 (diff) | |
| download | tcl-1e09e0a51157bce655a6cb8ef0490121f4cf8fe2.zip tcl-1e09e0a51157bce655a6cb8ef0490121f4cf8fe2.tar.gz tcl-1e09e0a51157bce655a6cb8ef0490121f4cf8fe2.tar.bz2 | |
no message
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; } |