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));