diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-08-27 12:54:42 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-27 22:41:09 +0000 |
| commit | d6920b13e0c2fc95fe0e8b5d52844cd310eb159b (patch) | |
| tree | 64caa30074b75fa66d375f4569f82efb05cd2ea1 /lib/warnings.t | |
| parent | 13feed241cfbd0344ddfa514a7c9777e784d2b70 (diff) | |
| download | perl-d6920b13e0c2fc95fe0e8b5d52844cd310eb159b.tar.gz | |
Removing 2>&1 requirement (was Re:
bleadperl on fire, Win95+4NT)
Message-Id: <20010827165442.F9436@blackrider>
p4raw-id: //depot/perl@11763
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index addcea2bd3..adc3ec9b75 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 |