From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Wed, 20 Mar 2002 01:21:40 +0000 (+0100)
Subject: exec.t tweak
X-Git-Tag: accepted/trunk/20130322.191538~27485
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0dd6fc1455886b04e5f218d58712a0f8da848ea7;p=platform%2Fupstream%2Fperl.git

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
--- 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";
 }