Perl module produces Segmentation fault.
Imported from http://bugzilla.roxen.com/bugzilla/show_bug.cgi?id=2683
Reported by Martin Nilsson, IDA nilsson@pike.ida.liu.se
Pike v7.3 release 13 running Hilfe v2.0 (Incremental Pike Frontend)
> Perl;
Result: object
> Perl->Perl;
Result: program
> Perl->Perl();
Result: object
> indices(Perl->Perl());
Program received signal SIGSEGV, Segmentation fault.
0xfe5f7eb4 in Perl_hv_fetch () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
(gdb) bt
#0 0xfe5f7eb4 in Perl_hv_fetch () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
#1 0xfe5a98a0 in Perl_gv_fetchfile () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
#2 0xfe5a4fb8 in S_open_script () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
#3 0xfe5a151c in S_parse_body () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
#4 0xfe5a0ab8 in perl_parse () from
/i/perl/5.6.1/lib/5.6.1/sun4-solaris/CORE/libperl.so
#5 0xfe7e2f14 in _perl_parse (ps=0x2dbbd8, argc=3, argv=0xfe7f7248,
envp=0x0)
at /home/nilsson/test/Pike/7.3/src/modules/Perl/perlmod.c:201
#6 0xfe7e3234 in perlmod_create (args=2997208) at
/home/nilsson/test/Pike/7.3/src/modules/Perl/perlmod.c:327
#7 0x39fd0 in low_mega_apply (type=APPLY_LOW, args=0, arg1=0x37e618,
arg2=0x2dbbd8)
at /home/nilsson/test/Pike/7.3/src/apply_low.h:187
#8 0x3b414 in mega_apply (type=APPLY_LOW, args=0, arg1=0x37e618, arg2=0x0)
at /home/nilsson/test/Pike/7.3/src/interpret.c:1400
#9 0xa1a4c in call_pike_initializers (o=0x37e618, args=0) at
/home/nilsson/test/Pike/7.3/src/object.c:279
#10 0xa1cd0 in parent_clone_object (p=0x3b4bb4, parent=0x30e848,
parent_identifier=0, args=0)
at /home/nilsson/test/Pike/7.3/src/object.c:344
#11 0x3a030 in low_mega_apply (type=APPLY_LOW, args=0, arg1=0x30e848,
arg2=0x37e618)
at /home/nilsson/test/Pike/7.3/src/apply_low.h:199
#12 0x37fd4 in opcode_F_CALL_OTHER (arg1=0) at
/home/nilsson/test/Pike/7.3/src/interpret_functions.h:1851
#13 0x371a04 in ?? ()
#14 0x3b524 in o_catch (pc=0x32d94c) at
/home/nilsson/test/Pike/7.3/src/interpret.c:1440
#15 0x3490c in opcode_F_CATCH () at
/home/nilsson/test/Pike/7.3/src/interpret_functions.h:1141
#16 0x32d94c in ?? ()
#17 0x2fa54 in eval_instruction (pc=0x3401c8) at
/home/nilsson/test/Pike/7.3/src/interpret.c:873
#18 0x3b430 in mega_apply (type=APPLY_LOW, args=0, arg1=0x286cd8,
arg2=0x25) at /home/nilsson/test/Pike/7.3/src/interpret.c:1402
#19 0xa1a4c in call_pike_initializers (o=0x286cd8, args=0) at
/home/nilsson/test/Pike/7.3/src/object.c:279
#20 0xa1cd0 in parent_clone_object (p=0x2cf63c, parent=0x286bd8,
parent_identifier=1, args=0)
at /home/nilsson/test/Pike/7.3/src/object.c:344
#21 0x3a030 in low_mega_apply (type=APPLY_LOW, args=0, arg1=0x286bd8,
arg2=0x286cd8)
at /home/nilsson/test/Pike/7.3/src/apply_low.h:199
#22 0x38210 in opcode_F_CALL_OTHER_AND_POP (arg1=126) at
/home/nilsson/test/Pike/7.3/src/interpret_functions.h:1904
#23 0x319a04 in ?? ()
#24 0x2fa54 in eval_instruction (pc=0x3166e0) at
/home/nilsson/test/Pike/7.3/src/interpret.c:873
#25 0x3b430 in mega_apply (type=APPLY_LOW, args=2, arg1=0x286dd8,
arg2=0x51) at /home/nilsson/test/Pike/7.3/src/interpret.c:1402
#26 0x3c0c4 in apply (o=0x286dd8, fun=0x180840 "_main", args=2) at
/home/nilsson/test/Pike/7.3/src/interpret.c:1703
#27 0x9a0a8 in main (argc=1, argv=0xffbefbd4) at
/home/nilsson/test/Pike/7.3/src/main.c:713