exec.t tweak

Message-ID: <18918217607.20020320012140@tesla.rcub.bg.ac.yu>

4NT returns 2 as error-code for nonexistant file.

p4raw-id: //depot/perl@15361

diff --git a/t/op/exec.t b/t/op/exec.t
index bbab0fb..4c1b36a 100755 (executable)
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -83,7 +83,7 @@ is( system(qq{$Perl "-I../lib" -e "use vmsish qw(hushed); exit 1"}), $exit_one,
 
 
 $rc = system "lskdfj";
-unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256) ) {
+unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
     print "# \$rc == $rc\n";
 }