exec.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
$| = 1; # flush stdout
# XXX the system tests could be written to use ./perl and so work on Win32
print "1..0 # Skip: shh, win32\n";
exit(0);
}
print "1..8\n";
}
else {
}
# these should probably be rewritten to match the examples in perlfunc.pod
} else {
print "ok 5\n";
}
(
$! == 2 or
$! == 13 or
$! =~ /permission denied/i
)
)
{print "ok 6\n";} else {print "not ok 6\n";}
exec "echo","ok","8";