Attachment "bgerror.patch" to
ticket [219142ffff]
added by
msofer
2001-12-11 03:31:48.
Index: generic/tclEvent.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEvent.c,v
retrieving revision 1.15
diff -u -r1.15 tclEvent.c
--- generic/tclEvent.c 2001/10/03 18:28:05 1.15
+++ generic/tclEvent.c 2001/12/10 17:48:13
@@ -290,7 +290,7 @@
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 {
