diff options
| author | msofer <msofer@noemail.net> | 2001-12-10 20:30:11 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2001-12-10 20:30:11 (GMT) |
| commit | 0c619ce18376db3d5aae681128121cdc9a1e9ea5 (patch) | |
| tree | f55ebfdc6e69dc8e379506c97f4f0887adcdad7c /generic/tclEvent.c | |
| parent | 781cfa55c59f46794e4ef55a6ac751b27ace541e (diff) | |
| download | tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.zip tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.tar.gz tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.tar.bz2 | |
fix background error reporting in the absence of a bgerror proc [Bug 219142].
FossilOrigin-Name: f64442352c7c68bb0863524e9fc24309c61505c1
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 3ad7234..52d461f 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.15 2001/10/03 18:28:05 hobbs Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.16 2001/12/10 20:30:13 msofer Exp $ */ #include "tclInt.h" @@ -290,7 +290,7 @@ HandleBgErrors(clientData) int len; string = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len); - if (strcmp(string, "\"bgerror\" is an invalid command name or ambiguous abbreviation") == 0) { + if (Tcl_FindCommand(interp, "bgerror", NULL, TCL_GLOBAL_ONLY) == NULL) { Tcl_WriteChars(errChannel, assocPtr->firstBgPtr->errorInfo, -1); Tcl_WriteChars(errChannel, "\n", -1); } else { |