[111372] trunk/base/src

[jmr at macports.org]

Revision: 111372
          https://trac.macports.org/changeset/111372
Author:   jmr at macports.org
Date:     2013-09-19 10:11:46 -0700 (Thu, 19 Sep 2013)
Log Message:
-----------
ignore stderr in Tcl 8.4-friendly fashion

Modified Paths:
--------------
    trunk/base/src/package1.0/tests/test.tcl
    trunk/base/src/port1.0/tests/test.tcl

Modified: trunk/base/src/package1.0/tests/test.tcl
===================================================================
--- trunk/base/src/package1.0/tests/test.tcl	2013-09-19 17:04:32 UTC (rev 111371)
+++ trunk/base/src/package1.0/tests/test.tcl	2013-09-19 17:11:46 UTC (rev 111372)
@@ -80,7 +80,7 @@
     set test_suite [glob *.test]
 
     foreach test $test_suite {
-        set result [eval exec -ignorestderr $tcl $test $arguments]
+        set result [eval exec $tcl $test $arguments 2>@stderr]
 		set lastline [lindex [split $result "\n"] end]
 
 	if {[lrange [split $lastline "\t"] 1 1] != "Total"} {

Modified: trunk/base/src/port1.0/tests/test.tcl
===================================================================
--- trunk/base/src/port1.0/tests/test.tcl	2013-09-19 17:04:32 UTC (rev 111371)
+++ trunk/base/src/port1.0/tests/test.tcl	2013-09-19 17:11:46 UTC (rev 111372)
@@ -72,7 +72,7 @@
 
 # Run tests
 if { $test_name != ""} {
-    set result [eval exec -ignorestderr $tcl $test_name $arguments]
+    set result [eval exec $tcl $test_name $arguments 2>@stderr]
     puts $result
 
 } else {
@@ -80,7 +80,7 @@
     set test_suite [glob *.test]
 
     foreach test $test_suite {
-        set result [eval exec -ignorestderr $tcl $test $arguments]
+        set result [eval exec $tcl $test $arguments 2>@stderr]
 	set lastline [lindex [split $result "\n"] end]
 
 	if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130919/ce3c371c/attachment.html>