| Subject: | Net::ADNS segfaults using global vars |
Hi,
I discovered a wired problem using perl 5.8.8.
1 use Net::ADNS qw(ADNS_R_A ADNS_R_MX);
2 my $adns = Net::ADNS->new;
3 my $query = $adns->submit( "gmail.com", ADNS_R_MX );
that works fine.
1 use Net::ADNS qw(ADNS_R_A ADNS_R_MX);
2 $adns = Net::ADNS->new;
3 my $query = $adns->submit( "gmail.com", ADNS_R_MX );
these three lines segfaults.
On both, OS X and Linux.
Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0xb7db56c0 (LWP 20866)]
0x080c5457 in Perl_sv_unmagic ()
(gdb) bt
#0 0x080c5457 in Perl_sv_unmagic ()
#1 0xb7f81567 in XS_Net__ADNS_DESTROY ()
from /usr/lib/perl5/site_perl/5.8.8/i686-linux/auto/Net/ADNS/ADNS.so
#2 0x080bb36f in Perl_pp_entersub ()
#3 0x08065415 in ?? ()
#4 0x0813eff4 in ?? ()
#5 0x00000000 in ?? ()
Have a nice day!
--
Boris