This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/croak/regcomp: Hopefully fix test failure
authorKarl Williamson <khw@cpan.org>
Fri, 9 Mar 2018 23:05:39 +0000 (16:05 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 9 Mar 2018 23:10:57 +0000 (16:10 -0700)
This is failing on H. Merijn Brand's machines.  I can't reproduce it
there, but it makes sense that it has something to do with printing a
non-ASCII character, given that it's only failing under a particular
locale.  So try this simple solution.

t/lib/croak/regcomp

index 19586d5..fbc263b 100644 (file)
@@ -47,7 +47,7 @@ my $p00="\\N{U+100_}"; qr/$p00/;
 EXPECT
 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+100_ <-- HERE }/ at - line 1.
 ########
-# NAME [ß\N{U+.}]
+# NAME [\xDF\N{U+.}]
 my $p00="[ß\\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