Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Email-Valid CPAN distribution.

Report information
The Basics
Id: 11919
Status: resolved
Priority: 0/
Queue: Email-Valid

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

Bug Information
Severity: Important
Broken in: 0.15
Fixed in: (no value)



Subject: [PATCH] fixes the return values "mxcheck" or "tldcheck"
This Patch fixes the return of Email::Valid in the function: Email::Valid->address(-mxcheck => 1, -tldcheck => 1, ); These function does not return the documented values "mxcheck" or "tldcheck". To apply this patch do the follow: patch -d /usr/lib/perl[PATH_TO_EMAIL_VALID-0.15]/ < Email-Valid-0.15-Valid.pm.patch
This Patch fixes the return of Email::Valid in the function: Email::Valid->address(-mxcheck => 1, -tldcheck => 1, ); These function does not return the documented values "mxcheck" or "tldcheck" (before patching). To apply this patch do the follow: patch -d /usr/lib/perl[PATH_TO_EMAIL_VALID-0.15]/ < Email-Valid-0.15-Valid.pm.patch Written by Michael Diekmann <michael.diekmann@undef.de> 06.03.2005 --- ./Email-Valid-0.15-orig/Valid.pm Sun Mar 6 15:24:30 2005 +++ ./Email-Valid-0.15-modified/Valid.pm Sun Mar 6 15:16:41 2005 @@ -272,11 +272,11 @@ } if ($args{mxcheck}) { - $self->mx( $addr->host ) or return; + $self->mx( $addr->host ) or return $self->details('mxcheck'); } if ($args{tldcheck}) { - $self->tld( $addr->host ) or return; + $self->tld( $addr->host ) or return $self->details('tldcheck'); } return (wantarray ? ($addr->address, $addr) : $addr->address);