diff options
| -rw-r--r-- | Spline/DMARC.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Spline/DMARC.pm b/Spline/DMARC.pm index 1cea9cb..4a54bbd 100644 --- a/Spline/DMARC.pm +++ b/Spline/DMARC.pm @@ -22,7 +22,7 @@ use strict; use warnings; use Mail::DMARC::PurePerl; -use Email::Address; +use Email::Address::XS; use Spline::Log qw(info debug); use base 'Exporter'; @@ -105,7 +105,7 @@ returns 1. If there is no policy or a policy with any other value then sub check_addresses($) { my $from = shift; - my @addresses = Email::Address->parse($from); + my @addresses = Email::Address::XS->parse($from); foreach my $addr (@addresses) { my $policy = get_dmarc_policy($addr->host); if ($policy eq 'reject') { |