summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2001-12-10 20:30:11 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2001-12-10 20:30:11 (GMT)
commitcdedbaef562cec652a7bbfa9faf73a5ba885facc (patch)
treef55ebfdc6e69dc8e379506c97f4f0887adcdad7c /generic
parent2509c4647a862758676661f35e5e16d3e08ca162 (diff)
downloadtcl-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')
-rw-r--r--generic/tclEvent.c4
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 {