Quoting Meng Weng Wong (mengwong(_at_)dumbo(_dot_)pobox(_dot_)com):
ok, fine, i'm outvoted.
the latest version 1.10 adds a ->new(myhostname=>foo) argument.
Sys::Hostname is only consulted if you do not provide it.
Undefined subroutine &Mail::SPF::Query::hostname called at
/usr/local/lib/perl5/site_perl/5.6.1/Mail/SPF/Query.pm line 158, <STDIN> line
10.
if (not $query->{myhostname}) {
eval { require Sys::Hostname; require Sys::Hostname::Long };
- $query->{myhostname} = $@ ? hostname() :
Sys::Hostname::Long::hostname_long();
+ $query->{myhostname} = $@ ? Sys::Hostname::hostname() :
Sys::Hostname::Long::hostname_long();
}
My perl foo is lacking so this may not be the right fix.
--
John Capo
-------
Sender Permitted From: http://spf.pobox.com/
Archives at http://archives.listbox.com/spf-discuss/current/
Latest draft at http://spf.pobox.com/draft-mengwong-spf-02.9.4.txt
To unsubscribe, change your address, or temporarily deactivate your
subscription,
please go to
http://v2.listbox.com/member/?listname(_at_)©#«Mo\¯HÝÜîU;±¤Ö¤Íµø?¡