Change 11763 by ams@ams-lustre on 2001/08/27 22:41:09
Subject: [PATCH lib/warnings.t] Removing 2>&1 requirement (was Re:
bleadperl on fire, Win95+4NT)
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Mon, 27 Aug 2001 16:54:42 -0400
Message-Id: <20010827165442.F9436@blackrider>
Affected files ...
... //depot/perl/lib/warnings.t#3 edit
Differences ...
==== //depot/perl/lib/warnings.t#3 (text) ====
Index: perl/lib/warnings.t
--- perl/lib/warnings.t.~1~ Mon Aug 27 16:45:06 2001
+++ perl/lib/warnings.t Mon Aug 27 16:45:06 2001
@@ -81,15 +81,22 @@
$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
End of Patch.
