This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/croak/regcomp: Another attempt to fix test failure
authorKarl Williamson <khw@cpan.org>
Sun, 11 Mar 2018 19:43:31 +0000 (13:43 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 11 Mar 2018 19:50:10 +0000 (13:50 -0600)
Commit e10187a7905cc53ffe233c0f091b3a7b3a6da4a9 failed to entirely fix
the failure, and this expands on that.

I had forgotten the pitfalls of using literal non-ASCIIs in tests

t/lib/croak/regcomp

index fbc263b..57e3fac 100644 (file)
@@ -48,9 +48,9 @@ EXPECT
 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+100_ <-- HERE }/ at - line 1.
 ########
 # NAME [\xDF\N{U+.}]
-my $p00="[ß\\N{U+.}]"; qr/$p00/ui;
+my $p00="[\\xDF\\N{U+.}]"; qr/$p00/ui;
 # The sharp s under /i recodes the parse, and this was causing a segfault when
 # the error message referred to the original pattern
 EXPECT
-Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/[ß\N{U+. <-- HERE }]/ at - line 1.
+Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/[\xDF\N{U+. <-- HERE }]/ at - line 1.
 ########