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

John A. Martin jam at jamux.com
Sun May 7 14:33:05 UTC 2006


>>>>> "Julian" == Julian Mehnle
>>>>> "Re: Bug#366173: libmail-spf-query-perl: spfquery fails with Bad arg length for Socket:$"
>>>>>  Sun, 7 May 2006 13:46:16 +0000

    Julian> John A. Martin wrote:
    >> ,----[ perl -d /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.
    >>         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
    >> `----

    Julian> I could not reproduce the problem in a Sarge chroot:

There were no funny characters in my boxquote. :)

    Julian> | [sarge] gray:~> dpkg -l libmail-spf-query-perl libnet-cidr-lite-perl libnet-dns-perl libsys-hostname-long-perl liburi-perl perl
    Julian> | Desired=Unknown/Install/Remove/Purge/Hold
    Julian> | | Status=Not/Installed/Config-files/Unpacked/Failed-config/Half-installed
    Julian> | |/ Err?=(none)/Hold/Reinst-required/X=both-problems (Status,Err: uppercase=bad)
    Julian> | ||/ Name                Version             Description
    Julian> | +++-===================-===================-======================================================
    Julian> | ii  libmail-spf-query-p 1.999.1-1           query SPF (Sender Policy Framework) to validate mail s
    Julian> | ii  libnet-cidr-lite-pe 0.15-1              Merge IPv4 or IPv6 CIDR address ranges
    Julian> | ii  libnet-dns-perl     0.48-1              Perform DNS queries from a Perl script
    Julian> | ii  libsys-hostname-lon 1.2-1               Figure out the long (fully-qualified) hostname
    Julian> | ii  liburi-perl         1.35-1              Manipulates and accesses URI strings
    Julian> | ii  perl                5.8.4-8sarge4       Larry Wall's Practical Extraction and Report Language
    Julian> | [sarge] gray:~> spfquery -i 199.184.165.135 -m jam at tux.org -h gwyn.tux.org
    Julian> | pass
    Julian> | Please see http://www.openspf.org/why.html?sender=jam%40tux.org&ip=199.184.165.135&receiver=spfquery: tux.org MX gwyn.tux.org A 199.184.165.135
    Julian> | spfquery: domain of jam at tux.org designates 199.184.165.135 as permitted sender
    Julian> | Received-SPF: pass (spfquery: domain of jam at tux.org designates 199.184.165.135 as permitted sender) client-ip=199.184.165.135; envelope-from=jam at tux.org; helo=gwyn.tux.org;

Same versions as my Sarge box.

    Julian> So I guess it must be a configuration problem on your
    Julian> machine.

    Julian> Please give me the output of...

    Julian>   perl -MNet::DNS -e 'print(map("$_\n",
    Julian>   Net::DNS::Resolver->new->nameservers))'

,----[ perl -MNet::DNS -e 'print(map("$_\n", Net::DNS::Resolver->new->nameservers))' ]
127.0.0.1
198.6.1.1,
198.6.1.142
`----

And, no surprise:

,----[ cat /etc/resolv.conf ]
# Dynamic resolv.conf(5) file for glibc resolver(3) generated by resolvconf(8)
#     DO NOT EDIT THIS FILE BY HAND -- YOUR CHANGES WILL BE OVERWRITTEN
nameserver 127.0.0.1
nameserver 198.6.1.1,
nameserver 198.6.1.142
search essential.org
`----
,----[ dig +sh @localhost. gwyn.tux.org. ]
199.184.165.135
`----

        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/43882292/attachment.pgp


More information about the pkg-perl-maintainers mailing list