exit 0;
}
+$| = 1;
+
my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl';
use strict;
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));