In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/58e1d6b2a815852ad117bc02ccb9d3fa670291ff?hp=a89a8c8d2ccb001266aed139e53f67e4e0b6ad6a>
- Log -----------------------------------------------------------------
commit 58e1d6b2a815852ad117bc02ccb9d3fa670291ff
Author: Karl Williamson <k...@cpan.org>
Date: Sun Mar 11 13:43:31 2018 -0600
t/lib/croak/regcomp: Another attempt to fix test failure
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
-----------------------------------------------------------------------
Summary of changes:
t/lib/croak/regcomp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/lib/croak/regcomp b/t/lib/croak/regcomp
index fbc263b698..57e3fac7b4 100644
--- a/t/lib/croak/regcomp
+++ b/t/lib/croak/regcomp
@@ -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.
########
--
Perl5 Master Repository
