| Subject: | segv on certain Test::More |
| Date: | Wed, 24 Sep 2008 11:08:04 +1000 |
| To: | bug-warnings-unused [...] rt.cpan.org |
| From: | Kevin Ryde <user42 [...] zip.com.au> |
With the debian packaged perl 5.10.0 and warnings::unused 0.01 the program
use warnings::unused;
use Test::More tests => 1;
is(1,1);
exit 0;
gets a segv after printing "1..1".
gdb claims it's in a hash lookup under wl_ck_padany,
0x080cbf0b in Perl_hv_common (my_perl=0x9e77008, hv=0x6b24, keysv=0x0,
key=0x9f2664c "$got", klen=4, flags=0, action=32, val=0x0, hash=0)
at hv.c:340
340 hv.c: No such file or directory.
in hv.c
(gdb) where
#0 0x080cbf0b in Perl_hv_common (my_perl=0x9e77008, hv=0x6b24, keysv=0x0,
key=0x9f2664c "$got", klen=4, flags=0, action=32, val=0x0, hash=0)
at hv.c:340
#1 0x080cd8bd in Perl_hv_common_key_len (my_perl=0x9e77008, hv=0x6b24,
key=0x9f2664c "$got", klen_i32=4, action=32, val=0x0, hash=0) at hv.c:322
#2 0xb7fcb5dd in wl_ck_padany (my_perl=0x9e77008, o=0x9f0b248)
at unused.xs:180
#3 0x081f95f2 in Perl_yylex (my_perl=0x9e77008) at toke.c:7009
#4 0x0820ccf4 in Perl_yyparse (my_perl=0x9e77008) at perly.c:409
#5 0x08151ed7 in S_doeval (my_perl=0x9e77008, gimme=0, startop=0x0,
outside=0x9eeca3c, seq=349) at pp_ctl.c:2916
#6 0x08152ebb in Perl_pp_entereval (my_perl=0x9e77008) at pp_ctl.c:3595
#7 0x080a58cf in Perl_runops_debug (my_perl=0x9e77008) at dump.c:1931
#8 0x080d6d31 in perl_run (my_perl=0x9e77008) at perl.c:2391
#9 0x08063f45 in main (argc=2, argv=0xbfeeaac4, env=0xbfeeaad0)
at perlmain.c:113