X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e10187a7905cc53ffe233c0f091b3a7b3a6da4a9..02916c24e049d202108ea97c1e420790acb6090a:/t/lib/croak/regcomp

diff --git a/t/lib/croak/regcomp b/t/lib/croak/regcomp
index fbc263b..c72e3d4 100644
--- a/t/lib/croak/regcomp
+++ b/t/lib/croak/regcomp
@@ -48,9 +48,18 @@ 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;
+# SKIP ? ord("A") != 65 && "Test valid only on ASCII machines"
+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.
+########
+# NAME [\x59\N{U+.}]
+# SKIP ? ord("A") == 65 && "Test valid only on EBCDIC machines"
+my $p00="[\\x59\\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/[\x59\N{U+. <-- HERE }]/ at - line 1.
 ########