[perl #115752] crash with invalid free in regex engine

On Thu Nov 15 17:21:55 2012, mauke- wrote:
> $ cat irc.pl
> #!/usr/bin/perl
> use warnings;
> use strict;
> 
> for my $num ('4000752057698530', '4000608912607415',
>    '4000966220145415') {
>     my $tmp = $num;
>     my $x;
>     $tmp =~ s/^(.{6})(.*?)(?{ $x = $^N; $x =~ s{.}{%}g;
>    })(.{4})$/$1#$2/;
> }
> __END__
> $ perl irc.pl
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> Use of uninitialized value $num in substitution (s///) at (re_eval 1)
>    line 1.
> *** glibc detected *** perl: double free or corruption (fasttop):
>    0x08708f68 ***

This appears to be fixed in blead.  Anyone want to do a bisect?

-- 

Father Chrysostomos


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

• [perl #115752] crash with invalid free in regex engine by Father Chrysostomos via RT
• Re: [perl #115752] crash with invalid free in regex engine by Andreas Koenig
• [perl #115752] crash with invalid free in regex engine by Father Chrysostomos via RT