>>>>> "Julian" == Julian Mehnle >>>>> "Re: Bug#366173: libmail-spf-query-perl: spfquery fails with Bad arg >>>>> length for Socket:$" >>>>> Sun, 7 May 2006 10:19:58 +0000
Julian> John A. Martin wrote:
>> > Please give me the output of...
>> >
>> > perl -MCarp=verbose /usr/bin/spfquery -i 199.184.165.135 -m
>> > [EMAIL PROTECTED] -h gwyn.tux.org
>>
>> On the broken first box
>>
>> ,----[ perl -MCarp=verbose /usr/bin/spfquery -i 199.184.165.135
>> -m [EMAIL PROTECTED] -h gwyn.tux.org ] Bad arg length for
>> Socket::pack_sockaddr_in, length is 0, should be 4 at
>> /usr/lib/perl/5.8/Socket.pm line 201. `----
Julian> WTF? It should have dumped a stack trace... The
Julian> Socket.pm XS code probably doesn't care. Oh well.
Julian> Alright, let's resort to heavy weapons. Please run...
Julian> perl -d /usr/bin/spfquery -i 199.184.165.135 -m
Julian> [EMAIL PROTECTED] -h gwyn.tux.org
Julian> ...type "c<Enter>", and give me the output.
>> On the good second box
Julian> Let's not care about the good, second box anymore.
,----[ perl -d /usr/bin/spfquery -i 199.184.165.135 -m [EMAIL PROTECTED] -h
gwyn.tux.org ]
Loading DB routines from perl5db.pl version 1.25
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(/usr/bin/spfquery:3): eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
main::(/usr/bin/spfquery:4): if 0; # not running under some shell
DB<1> c
Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at
/usr/lib/perl/5.8/Socket.pm line 201.
Socket::sockaddr_in(53, 'undef') called at
/usr/lib/perl5/Net/DNS/Resolver/Base.pm line 626
Net::DNS::Resolver::Base::send_udp('Net::DNS::Resolver=HASH(0x877db04)',
'Net::DNS::Packet=HASH(0x84b8504)',
'X\'\x{1}\x{0}\x{0}\x{1}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{3}tux\x{3}org\x{0}\x{0}\x{10}\x{0}\x{1}')
called at /usr/lib/perl5/Net/DNS/Resolver/Base.pm line 449
Net::DNS::Resolver::Base::send('Net::DNS::Resolver=HASH(0x877db04)',
'Net::DNS::Packet=HASH(0x84b8504)') called at
/usr/lib/perl5/Net/DNS/Resolver/Base.pm line 431
Net::DNS::Resolver::Base::query('Net::DNS::Resolver=HASH(0x877db04)',
'tux.org', 'TXT') called at /usr/share/perl5/Mail/SPF/Query.pm line 1233
Mail::SPF::Query::myquery('Mail::SPF::Query=HASH(0x8765e7c)',
'tux.org', 'TXT', 'char_str_list') called at /usr/share/perl5/Mail/SPF/Query.pm
line 1662
DirectiveSet::new('DirectiveSet', 'tux.org',
'Mail::SPF::Query=HASH(0x8765e7c)', 'undef', 'undef', 'undef') called at
/usr/share/perl5/Mail/SPF/Query.pm line 892
Mail::SPF::Query::spfquery('Mail::SPF::Query=HASH(0x8765e7c)') called
at /usr/share/perl5/Mail/SPF/Query.pm line 418
Mail::SPF::Query::result('Mail::SPF::Query=HASH(0x8765e7c)') called at
/usr/bin/spfquery line 457
main::do_query() called at /usr/bin/spfquery line 391
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.
DB<1> q
`----
jam
pgpxQ6EFfp1c7.pgp
Description: PGP signature
