[perl #112350] panic: sv_setpvn with $SIG{ALRM} and split

On Sun Apr 08 13:32:04 2012, sprout wrote:
> In <4F7C2642.40209@profvince.com>, Vincent Pit wrote:
> > On 04/04/2012 10:57, Jiří Václavík wrote:
> > > Hello,
> > >
> > > after perl update I've hit on the following error message:
> > >
> > > panic: sv_setpvn called with negative strlen at bug.pl line 11.
> > >
> > > I don't exactly know what is wrong, but I've created short
> > > synthetic script, which is attached. It works fine on perl5.12.4
> > > and crash on perl5.14.2.
> > >
> >
> > This can be reduced to :
> >
> >      local $SIG{"ALRM"} = sub { "foo" =~ /o/ };
> >      alarm 1;
> >      split m{(\b)}, 'assdf ' x 5000000; # must run more than 1 sec.
> >
> > It started to panic between 5.12 and 5.13.3, and is still present in
>    5.15.8.
> 
> And then Nicholas Clark followed up with a couple of messages
>   
(<http://www.nntp.perl.org/group/perl.perl5.porters/;msgid=20120404144528.GE9069@plum.flirble.org>
>    and
>   
<http://www.nntp.perl.org/group/perl.perl5.porters/;msgid=20120404150046.GF9069@plum.flirble.org>),
>    suggesting that it has to do with PERL_ASYNC_CHECK.
> 
> This is a regression in 5.14.  Can it be a 5.16 blocker?

This appears to have been fixed in
47c9d59fcd27684d94480b806b8b6e001aac91cc for 5.18 and backported to
maint-5.16 as fd430c957778442c853fd86b2357454f503f9168.

Tested as failing in 5.14.2, and as passing in 5.18.0 and blead.

I'll close this ticket in a few days unless someone objects.

Tony

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=112350

• [perl #112350] panic: sv_setpvn with $SIG{ALRM} and split by Tony Cook via RT
• [perl #112350] panic: sv_setpvn with $SIG{ALRM} and split by Tony Cook via RT