BEGIN {
chdir 't' if -d 't';
- @INC = '../lib' if -e '../lib';
+ @INC = '../lib';
}
+
+if ($^O eq 'mpeix') {
+ print "1..0 # Skip: broken on MPE/iX\n";
+ 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));