We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 3764bc7 commit a16ebdaCopy full SHA for a16ebda
t/re/pat_rt_report.t
@@ -20,7 +20,7 @@ use warnings;
20
use 5.010;
21
use Config;
22
23
-plan tests => 2514; # Update this when adding/deleting tests.
+plan tests => 2515; # Update this when adding/deleting tests.
24
25
run_tests() unless caller;
26
@@ -1168,6 +1168,14 @@ EOP
1168
ok($result == 0);
1169
}
1170
1171
+ {
1172
+ # GH #24229
1173
+ # utf8.c:72: Perl_force_out_malformed_utf8_message_: Assertion `p < e' failed.
1174
+ use utf8;
1175
+ my $éx = 0;
1176
+ $_ = qr/$_[$éx]/ if 0;
1177
+ ok(1, "GH #24229 - non-ascii variable in brackets doesn't crash S_intuit_more()");
1178
+ }
1179
} # End of sub run_tests
1180
1181
1;
0 commit comments