develooper Front page | perl.perl5.porters | Postings from March 2006

[perl #36020] Simple regexp causes segfault

From:
Steve Peters via RT
Date:
March 29, 2006 09:34
Subject:
[perl #36020] Simple regexp causes segfault
Message ID:
rt-3.0.11-36020-131656.16.5759833313089@perl.org
> [Martin.Ward@durham.ac.uk - Sat May 28 09:44:24 2005]:
> 
> This is a bug report for perl from Martin.Ward@durham.ac.uk,
> generated with the help of perlbug 1.35 running under perl v5.8.5.
> 
> 
> -----------------------------------------------------------------
> [Please enter your report here]
> 
> The following two lines cause a segfault:
> 
> 
> $str = "{" . ("0x00, " x 25600) . "0x00}";
> $str =~ /^(0|0x00+|\{(0x00,\s*)*0x00\})$/;
> 

This has been fixed with change #27598.

steve@kirk:~/smoke/perl-current$ perl -wle'$str = "{" . ("0x00, " x
25600) . "0x00}";$str =~ /^(0|0x00+|\{(0x00,\s*)*0x00\})$/;'
Segmentation fault
steve@kirk:~/smoke/perl-current$ ./perl -wle'$str = "{" . ("0x00, " x
25600) . "0x00}";$str =~ /^(0|0x00+|\{(0x00,\s*)*0x00\})$/;'




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About