Re: [perl #76538] Assertion failed: (rx->sublen >= (s - rx->subbeg)+ i), function Perl_reg_numbered_buff_fetch

On Fri, Jul 16, 2010 at 05:47:19AM -0700, mons@cpan.org wrote:
> ##### sample.pl #####
> use utf8;
> my @make;
> while (<DATA>) {
> 	chomp;
> 	push @make, '';
> 	s{\\\s*$}{};
> 	$make[-1] .= $_;
> }
> for (@make) {
> 	m{^([^=]+?)\s*=\s*(.+)$}o;
> }
> __DATA__
> A=	
> AAAA=\
> ### end sample.pl ###
> 
> or 
> 
> ##### sample.pl #####
> my @x = ("A=B","AAAA=/");
> utf8::upgrade $_ for @x;
> $x[1] =~ s{/\s*$}{};
> for (@x) {
> 	m{^([^=]+?)\s*=.+$};
> }
> ### end sample.pl ###
> 
> Assertion failed: (rx->sublen >= (s - rx->subbeg) + i), function Perl_reg_numbered_buff_fetch, file regcomp.c, line 5199.
> Abort trap: 6 (core dumped)
> 
> Repeatable under:
>   - v5.10.1 (*) built for i686-linux-thread-multi
>   - v5.10.0 built for amd64-freebsd
>   - v5.10.1 (*) built for amd64-freebsd
>   - v5.12.0 built for amd64-freebsd
>   - v5.13.2 built for amd64-freebsd

I can't reproduce the issue for the first sample code, but can with the
second, and its still present in 5.1.39 and blead.

-- 
You never really learn to swear until you learn to drive.

• [perl #76538] Assertion failed: (rx->sublen >= (s - rx->subbeg) + i), function Perl_reg_numbered_buff_fetch by mons @ cpan . org
• Re: [perl #76538] Assertion failed: (rx->sublen >= (s - rx->subbeg)+ i), function Perl_reg_numbered_buff_fetch by Dave Mitchell