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