This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #130495] add fresh_perl() option for prog with embedded utf8
authorHugo van der Sanden <hv@crypt.org>
Sat, 7 Jan 2017 01:27:50 +0000 (01:27 +0000)
committerHugo van der Sanden <hv@crypt.org>
Sun, 8 Jan 2017 11:11:10 +0000 (11:11 +0000)
Support { wide_chars => 1 } in the args hash to fresh_perl*() functions,
and use it for the recently added test in re/pat.t

t/re/pat.t
t/test.pl

index a72989f..c5de2cd 100644 (file)
@@ -1864,7 +1864,7 @@ EOF_CODE
         # [perl #130495] /x comment skipping stopped a byte short, leading
         # to assertion failure or 'malformed utf-8 character" warning
         fresh_perl_is(
         # [perl #130495] /x comment skipping stopped a byte short, leading
         # to assertion failure or 'malformed utf-8 character" warning
         fresh_perl_is(
-            "use utf8; m{a#\x{124}}x", '', {},
+            "use utf8; m{a#\x{124}}x", '', {wide_chars => 1},
             '[perl #130495] utf-8 character at end of /x comment should not misparse',
         );
     }
             '[perl #130495] utf-8 character at end of /x comment should not misparse',
         );
     }
index 32d0d64..d86f633 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -979,6 +979,7 @@ sub fresh_perl {
     $runperl_args->{stderr}     = 1 unless exists $runperl_args->{stderr};
 
     open TEST, '>', $tmpfile or die "Cannot open $tmpfile: $!";
     $runperl_args->{stderr}     = 1 unless exists $runperl_args->{stderr};
 
     open TEST, '>', $tmpfile or die "Cannot open $tmpfile: $!";
+    binmode TEST, ':utf8' if $runperl_args->{wide_chars};
     print TEST $prog;
     close TEST or die "Cannot close $tmpfile: $!";
 
     print TEST $prog;
     close TEST or die "Cannot close $tmpfile: $!";