diff options
| author | davidg <davidg> | 2000-07-26 01:28:49 (GMT) |
|---|---|---|
| committer | davidg <davidg> | 2000-07-26 01:28:49 (GMT) |
| commit | 6daa9641bc0db6e1069b15670dfcdee08be0b9d6 (patch) | |
| tree | f467b514b38eb66a79ab499ec7a8b9ca0f0791e3 /generic/tclTest.c | |
| parent | 0d11135596a42587918ad8664066d8ba1388f67b (diff) | |
| download | tcl-6daa9641bc0db6e1069b15670dfcdee08be0b9d6.zip tcl-6daa9641bc0db6e1069b15670dfcdee08be0b9d6.tar.gz tcl-6daa9641bc0db6e1069b15670dfcdee08be0b9d6.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; } |