Skip to content

Commit a16ebda

Browse files
committed
add regression test for #24229
1 parent 3764bc7 commit a16ebda

File tree

1 file changed

+9
-1
lines changed

1 file changed

+9
-1
lines changed

t/re/pat_rt_report.t

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ use warnings;
2020
use 5.010;
2121
use Config;
2222

23-
plan tests => 2514; # Update this when adding/deleting tests.
23+
plan tests => 2515; # Update this when adding/deleting tests.
2424

2525
run_tests() unless caller;
2626

@@ -1168,6 +1168,14 @@ EOP
11681168
ok($result == 0);
11691169
}
11701170

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+
}
11711179
} # End of sub run_tests
11721180

11731181
1;

0 commit comments

Comments
 (0)