This queue is for tickets about the Mail-SPF CPAN distribution.

Report information
The Basics
Id:
20821
Status:
resolved
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
mschwern [...] cpan.org
Cc:
AdminCc:

BugTracker
Severity:
Important
Broken in:
2.00
Fixed in:
2.001



Subject: Mail::SPF synopsis example broken
The example in the Mail::SPF SYNOPSIS appears to be broken. #!/usr/bin/perl -w use Mail::SPF; my $spf = new Mail::SPF::Server(); my $request = new Mail::SPF::Request( Ip => '198.7.0.1', Sender => 'schwern@pobox.com', ); my $response = $spf->query($request); print "Result is " . $response->get_result; The result is... Query pobox.com TXT $VAR1 = bless( { 'Value' => '', 'Qualifier' => '', 'ParseValue' => '' }, 'Mail::SPF::Mech::MX' ); $VAR1 = bless( { 'Value' => ':fallback-relay.%{d}', 'Qualifier' => '', 'Domain' => 'fallback-relay.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::MX' ); $VAR1 = bless( { 'Value' => ':webmail.%{d}', 'Qualifier' => '', 'Domain' => 'webmail.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); $VAR1 = bless( { 'Value' => ':smtp.%{d}', 'Qualifier' => '', 'Domain' => 'smtp.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); $VAR1 = bless( { 'Value' => ':outgoing.smtp.%{d}', 'Qualifier' => '', 'Domain' => 'outgoing.smtp.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); $VAR1 = bless( { 'Value' => ':discard-reports.%{d}', 'Qualifier' => '', 'Domain' => 'discard-reports.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); $VAR1 = bless( { 'Value' => ':discards.%{d}', 'Qualifier' => '', 'Domain' => 'discards.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); $VAR1 = bless( { 'Value' => ':stor', 'Qualifier' => '', 'Domain' => 'stor', 'ParseValue' => '' }, 'Mail::SPF::Mech::MX' ); $VAR1 = bless( { 'Value' => ':emerald.%{d}', 'Qualifier' => '', 'Domain' => 'emerald.%{d}', 'ParseValue' => '' }, 'Mail::SPF::Mech::A' ); Undefined subroutine &Mail::SPF::Mod called at /Library/Perl/5.8.6/Mail/SPF/Record.pm line 56.
Mail::SPF is currently undergoing a major extension and overhaul (including documentation). A new, polished release is expected within the next 4 weeks. Please wait until then and retry the new release.
Please try Mail::SPF 2.001.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.