Tcl Source Code

Artifact 33d281a6f533e5883767eda4353d6b31d866a592:

Attachment "foo.patch" to ticket [541637ffff] added by kenstir 2002-04-10 00:26:17.

---

Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.47
diff -u -r1.47 tcltest.tcl
--- library/tcltest/tcltest.tcl	8 Apr 2002 18:35:51 -0000	1.47
+++ library/tcltest/tcltest.tcl	9 Apr 2002 17:21:16 -0000
@@ -1591,15 +1591,15 @@
     }
 
     if {[info exists channel]} {
-	if {[string equal $channel [outputChannel]]
+	if {[string equal $channel [::tcltest::outputChannel]]
 		|| [string equal $channel stdout]} {
 	    append outData [lindex $args end]\n
-	} elseif {[string equal $channel [errorChannel]]
+	    return
+	} elseif {[string equal $channel [::tcltest::errorChannel]]
 		|| [string equal $channel stderr]} {
 	    append errData [lindex $args end]\n
+	    return
 	}
-	return
-	# return [Puts [lindex $args 0] [lindex $args end]]
     }
 
     # If we haven't returned by now, we don't know how to handle the