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 (file)
--- 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