diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2002-03-20 02:21:40 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-20 14:34:38 +0000 |
| commit | 0dd6fc1455886b04e5f218d58712a0f8da848ea7 (patch) | |
| tree | 51c463cac8bbbe8a8b17e017b6b721d10be042bd /t/op/exec.t | |
| parent | a4a5e1bcc470d8f87f5725fb78c74d2a5d454a2f (diff) | |
| download | perl-0dd6fc1455886b04e5f218d58712a0f8da848ea7.tar.gz | |
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
Diffstat (limited to 't/op/exec.t')
| -rwxr-xr-x | t/op/exec.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/exec.t b/t/op/exec.t index bbab0fbba5..4c1b36ae2e 100755 --- 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"; } |