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);