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

[Julian Mehnle]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

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
> `----

I could not reproduce the problem in a Sarge chroot:

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

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

Please give me the output of...

  perl -MNet::DNS -e 'print(map("$_\n", Net::DNS::Resolver->new->nameservers))'
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2.2 (GNU/Linux)

iD8DBQFEXfopwL7PKlBZWjsRAltiAKDACJApf/8zNmM41/5xFtu294uVWQCePK/Q
MK8lPokUaoctkmE/gYq3saQ=
=3uax
-----END PGP SIGNATURE-----