It looks like that there is no upstream github repository... I wrote simple patch which ports this perl module to use Email::Address::XS. Patch is attached.
-- Pali Rohár [email protected]
diff -Nurp Data-Validate-Email-0.06/Email.pm Data-Validate-Email-0.06/Email.pm
--- Data-Validate-Email-0.06/Email.pm 2017-10-29 16:31:54.000000000 +0100
+++ Data-Validate-Email-0.06/Email.pm 2018-06-27 21:08:34.630821085 +0200
@@ -6,7 +6,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPOR
require Exporter;
use AutoLoader 'AUTOLOAD';
-use Email::Address;
+use Email::Address::XS 1.01;
use Data::Validate::Domain;
@ISA = qw(Exporter);
@@ -215,7 +215,7 @@ Returns the untainted address on success
=item I<Notes, Exceptions, & Bugs>
-This check uses Casey West's Email::Address module to do its validation.
+This check uses L<Email::Address::XS> module to do its validation.
The function does not make any attempt to check whether an address is
genuinely deliverable. It only looks to see that the format is email-like.
@@ -230,12 +230,9 @@ sub is_email_rfc822{
return unless defined($value);
- #warn $Email::Address::mailbox;
-
my $address;
- if($value =~ /^$Email::Address::mailbox$/){
- #warn $&;
- $address = $&;
+ if(Email::Address::XS->parse($value)->is_valid()){
+ ($address) = $value =~ m/^(.*)$/s;
}
return $address;
diff -Nurp Data-Validate-Email-0.06/Makefile.PL Data-Validate-Email-0.06/Makefile.PL
--- Data-Validate-Email-0.06/Makefile.PL 2017-10-29 16:18:29.000000000 +0100
+++ Data-Validate-Email-0.06/Makefile.PL 2018-06-27 21:13:26.604696534 +0200
@@ -7,7 +7,7 @@ WriteMakefile(
'DISTNAME' => 'Data-Validate-Email',
'AUTHOR' => 'Richard Sonnen ([email protected])',
'PREREQ_PM' => {
- 'Email::Address' => 0,
+ 'Email::Address::XS' => 1.01,
'Data::Validate::Domain' => 0.04,
},
'dist' => {
diff -Nurp Data-Validate-Email-0.06/README Data-Validate-Email-0.06/README
--- Data-Validate-Email-0.06/README 2017-10-29 16:18:29.000000000 +0100
+++ Data-Validate-Email-0.06/README 2018-06-27 21:13:12.204604030 +0200
@@ -102,7 +102,7 @@ FUNCTIONS
Returns the untainted address on success, undef on failure.
*Notes, Exceptions, & Bugs*
- This check uses Casey West's Email::Address module to do its
+ This check uses Email::Address::XS module to do its
validation.
The function does not make any attempt to check whether an
signature.asc
Description: PGP signature
