[[email protected] - Sat May 28 09:44:24 2005]:
This is a bug report for perl from [email protected],
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 is a bug report for perl from [email protected],
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\})$/;
[email protected]:~/smoke/perl-current$ perl -wle'$str = "{" . ("0x00, " x
25600) . "0x00}";$str =~ /^(0|0x00+|\{(0x00,\s*)*0x00\})$/;'
Segmentation fault
[email protected]:~/smoke/perl-current$ ./perl -wle'$str = "{" . ("0x00, " x
25600) . "0x00}";$str =~ /^(0|0x00+|\{(0x00,\s*)*0x00\})$/;'