Artifact
875b998963004b1d3342a80078d760d7a3851f8a:
Attachment "526499.diff" to
ticket [526499ffff]
added by
andreas_kupries
2002-03-07 00:59:05.
Index: modules/comm/comm.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/comm/comm.tcl,v
retrieving revision 1.4
diff -u -r1.4 comm.tcl
--- modules/comm/comm.tcl 15 Feb 2002 05:35:30 -0000 1.4
+++ modules/comm/comm.tcl 6 Mar 2002 17:58:01 -0000
@@ -1046,6 +1046,26 @@
flush $fid
}
}
+
+ if {$err == 1} {
+ # SF Tcllib Patch #526499
+ # (See http://sourceforge.net/tracker/?func=detail&aid=526499&group_id=12883&atid=312883
+ # for initial request and comments)
+ #
+ # Error in async call. Look for [bgerror] to report it. Same
+ # logic as in Tcl itself. Errors thrown by bgerror itself get
+ # reported to stderr.
+
+ if {[catch {
+ bgerror $ret
+ } msg]} {
+ puts stderr "bgerror failed to handle background error."
+ puts stderr " Original error: $ret"
+ puts stderr " Error in bgerror: $msg"
+ flush stderr
+ }
+ }
+ return
}
###############################################################################
