This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/exec.t: Add missing /i
authorKarl Williamson <khw@cpan.org>
Tue, 9 Jan 2018 16:48:59 +0000 (09:48 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 9 Jan 2018 16:57:52 +0000 (09:57 -0700)
This was failing on z/OS due to its capitalization of an expected word.
The similar tests in this file use /i; this is the only one missing it.

I'm presuming we don't want to do a qr// in testing this basic
functionality, othewise it would be better to use the same re everywhere
to avoid this kind of typo.

t/op/exec.t

index 948b175..bda8dd5 100644 (file)
@@ -188,7 +188,7 @@ TODO: {
     local $! = 0;
     my $err = $!;
     ok !(exec {""} ()), 'empty exec PROGRAM LIST fails';
-    ok $! == 2 || $! =~ qr/\bno\b.*\bfile\b/, 'errno = ENOENT'
+    ok $! == 2 || $! =~ qr/\bno\b.*\bfile\b/i, 'errno = ENOENT'
         or diag sprintf "\$! eq %d, '%s'\n", $!, $!;
 }