I get a segfault with this script:
sub f
{
my ($a) = @_;
$x = sub {
or die "";
};
}
This has a syntax error in the "or die" line, but perl should not
segfault. It looks quite similar to the other script, so maybe it is the
same bug.
Backtrace:
Core was generated by `debugperl -c perlbug2'.
Program terminated with signal 11, Segmentation fault.
#0 0x080b56d7 in Perl_pad_free (my_perl=0x81b9008, po=4) at pad.c:1180
1180 pad.c: No such file or directory.
in pad.c
(gdb) bt
#0 0x080b56d7 in Perl_pad_free (my_perl=0x81b9008, po=4) at pad.c:1180
#1 0x0809e4d2 in Perl_op_clear (my_perl=0x81b9008, o=0x81c2118) at op.c:515
#2 0x0809e06c in Perl_op_free (my_perl=0x81b9008, o=0x81c2118) at op.c:379
#3 0x0809e009 in Perl_op_free (my_perl=0x81b9008, o=0x81d7140) at op.c:367
#4 0x080aa308 in Perl_newATTRSUB (my_perl=0x81b9008, floor=103, o=0x81d6df8,
proto=0x0, attrs=0x0, block=0x81d7140) at op.c:4424
#5 0x0809b12b in Perl_yyparse (my_perl=0x81b9008) at perly.y:364
#6 0x080652ac in S_parse_body (my_perl=0x81b9008, env=0x0, xsinit=0x806019e
<xs_init>)
at perl.c:2206
#7 0x08063ee5 in perl_parse (my_perl=0x81b9008, xsinit=0x806019e <xs_init>,
argc=3,
argv=0xbfb065d4, env=0x0) at perl.c:1598
#8 0x08060128 in main (argc=3, argv=0xbfb065d4, env=0xbfb065e4) at
perlmain.c:97
It happens both with 5.8.8-7 and 5.8.8-11.1
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
