Re: Untested builtins

[p5sagit/p5-mst-13.2.git] / t / op / exec.t

diff --git a/t/op/exec.t b/t/op/exec.t
index 5f110be..8e0e16f 100755 (executable)
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -90,6 +90,7 @@ is( system(qq{$Perl "-I../lib" -e "use vmsish qw(hushed); exit 1"}), $exit_one,
     'Explicit exit of 1' );
 
 $rc = system { "lskdfj" } "lskdfj";
+$rc = 256 if ($rc == 5632) && $Is_VMS;
 unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
     print "# \$rc == $rc\n";
 }