From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 27 Aug 2001 16:54:42 +0000 (-0400)
Subject: Removing 2>&1 requirement  (was Re:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6920b13e0c2fc95fe0e8b5d52844cd310eb159b;p=p5sagit%2Fp5-mst-13.2.git

Removing 2>&1 requirement  (was Re:
	bleadperl on fire, Win95+4NT)
Message-Id: <20010827165442.F9436@blackrider>

p4raw-id: //depot/perl@11763
---

diff --git a/lib/warnings.t b/lib/warnings.t
index addcea2..adc3ec9 100644
--- a/lib/warnings.t
+++ b/lib/warnings.t
@@ -81,15 +81,22 @@ for (@prgs){
 	$prog = shift @files ;
     }
     open TEST, ">$tmpfile";
+    print TEST q{
+        BEGIN { 
+            open(STDERR, ">&STDOUT") 
+              or die "Can't dup STDOUT->STDERR: $!;";
+        }
+    };
+    print TEST "\n#line 1\n";  # So the line numbers don't get messed up.
     print TEST $prog,"\n";
     close TEST;
     my $results = $Is_VMS ?
-                  `./perl "-I../lib" $switch $tmpfile 2>&1` :
+                  `./perl "-I../lib" $switch $tmpfile` :
 		  $Is_MSWin32 ?
-                  `.\\perl -I../lib $switch $tmpfile 2>&1` :
+                  `.\\perl -I../lib $switch $tmpfile` :
 		  $Is_NetWare ?
-                  `perl -I../lib $switch $tmpfile 2>&1` :
-                  `./perl -I../lib $switch $tmpfile 2>&1`;
+                  `perl -I../lib $switch $tmpfile` :
+                  `./perl -I../lib $switch $tmpfile`;
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN