Bug#366173: libmail-spf-query-perl: spfquery fails with Bad arg length for Socket:$

[John A. Martin]

>>>>> "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
    >> >   jam at tux.org -h gwyn.tux.org
    >>
    >> On the broken first box
    >>
    >> ,----[ perl -MCarp=verbose /usr/bin/spfquery -i 199.184.165.135
    >> -m jam at tux.org -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>   jam at tux.org -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 jam at tux.org -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

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 154 bytes
Desc: not available
Url : http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20060507/9e031d8c/attachment.pgp