This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/pat.t: Fix failure on some systems
authorKarl Williamson <khw@cpan.org>
Fri, 17 Jan 2020 04:18:49 +0000 (21:18 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 19 Jan 2020 05:07:04 +0000 (22:07 -0700)
This appears to be a difference in how shells run.  On many of H. Merijn
Brand's  boxes, this a test is failing.  By avoiding the shell by using
fresh_perl instead of runperl, it succeeds there, without breaking
elsewhere.

t/re/pat.t

index 47de141..1588d1c 100644 (file)
@@ -2203,7 +2203,7 @@ x{0c!}\;\;îçÿ \0\7f/0f/!\0F\ 5\0\0/;îçÿù\Q\0\ 1\0\0x\10ÿÿÿÿ\0\0\0ù\0\0\0\7f`x{0c!}\ 1;\0\0\0ù\Q
                         $quote x 8 . $back x 69,
                         $quote x 5 . $back x 4,
                         $ff x 48;
-        like(runperl(prog => "$s", stderr => 1), qr/Unmatched \(/);
+        like(fresh_perl("$s", { stderr => 1, }), qr/Unmatched \(/);
    }
 
    {    # GitHub #17196, caused assertion failure