diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-12-10 20:30:11 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-12-10 20:30:11 (GMT) |
| commit | cdedbaef562cec652a7bbfa9faf73a5ba885facc (patch) | |
| tree | f55ebfdc6e69dc8e379506c97f4f0887adcdad7c /generic/tclEvent.c | |
| parent | 2509c4647a862758676661f35e5e16d3e08ca162 (diff) | |
| download | tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.zip tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.tar.gz tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.tar.bz2 | |
fix background error reporting in the absence of a bgerror proc [Bug 219142].
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 { |