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

[perl #32803] regular expression segfaults perl

From:
Steve Peters via RT
Date:
March 29, 2006 09:40
Subject:
[perl #32803] regular expression segfaults perl
Message ID:
rt-3.0.11-32803-131658.18.2524349488234@perl.org
> [wolf@ti.com - Fri Dec 03 14:57:44 2004]:
> 
> 
> This is a bug report for perl from wolf@ti.com,
> generated with the help of perlbug 1.34 running under perl v5.8.3.
> 
> 
> -----------------------------------------------------------------
> [Please enter your report here]
> 
> The following script.pl segfaults perl:
> 
> #!/usr/bin/env perl5.8.3
> $content = "x @ x @ x @" . " " x 19762 . "@ ";
> $content =~ m/@[^@]*@.*@([^@]|@@)*@/;
> 
> %> ./script.pl
> Segmentation fault
> 
> (FYI:This was simplified from an attempt to parse RCS files.)
> 

This problem has been resolved with change #27598.

steve@kirk:~/smoke/perl-current$ perl rt_32803.pl
Segmentation fault
steve@kirk:~/smoke/perl-current$ ./perl rt_32803.pl
steve@kirk:~/smoke/perl-current$ cat rt_32803.pl
#!perl
$content = "x @ x @ x @" . " " x 19762 . "@ ";
$content =~ m/@[^@]*@.*@([^@]|@@)*@/;





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