Re: [PATCH] new version of runperl()

[p5sagit/p5-mst-13.2.git] / t / op / die_exit.t

diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index a389946..18d8bab 100755 (executable)
--- a/t/op/die_exit.t
+++ b/t/op/die_exit.t
@@ -15,6 +15,8 @@ if ($^O eq 'mpeix') {
     exit 0;
 }
 
+$| = 1;
+
 my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl';
 
 use strict;
@@ -48,7 +50,7 @@ foreach my $test (1 .. $max) {
     my($bang, $query, $code) = @{$tests{$test}};
     $code ||= 'die;';
     my $exit =
-       ($^O eq 'MSWin32'
+       (($^O eq 'MSWin32' || $^O eq 'NetWare')
         ? system qq($perl -e "\$! = $bang; \$? = $query; $code" 2> nul)
         : system qq($perl -e '\$! = $bang; \$? = $query; $code' 2> /dev/null));