z/OS: t/ - mostly EBCDIC fixes

[perl5.git] / t / op / exec.t

diff --git a/t/op/exec.t b/t/op/exec.t
index a6eeeb5..c138491 100755 (executable)
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -96,7 +96,7 @@ unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
 
 unless ( ok( $! == 2  or  $! =~ /\bno\b.*\bfile/i or  
              $! == 13 or  $! =~ /permission denied/i or
-             $! == 22 or  $! =~ /invalid argument/  ) ) {
+             $! == 22 or  $! =~ /invalid argument/i  ) ) {
     printf "# \$! eq %d, '%s'\n", $!, $!;
 }