From a0539941cee87eb89f98b1016055cbf45a373600 Mon Sep 17 00:00:00 2001 From: Giovanni Date: Wed, 29 Jan 2025 08:30:15 +0100 Subject: [PATCH] RFC7489 6.6.1 states that "group" syntax, are typically ignored --- lib/Mail/DMARC/Base.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Mail/DMARC/Base.pm b/lib/Mail/DMARC/Base.pm index 27c1c9d5..7a0cb7a6 100644 --- a/lib/Mail/DMARC/Base.pm +++ b/lib/Mail/DMARC/Base.pm @@ -283,7 +283,7 @@ sub is_valid_domain { return 0 if $domain !~ /^$RE{net}{domain}{-rfc1101}{-nospace}$/x; my $tld = ( split /\./, lc $domain )[-1]; return 1 if $self->is_public_suffix($tld); - return 1 if $domain eq 'localhost'; + return 0 if lc $domain eq 'localhost'; $tld = join( '.', ( split /\./, $domain )[ -2, -1 ] ); return 1 if $self->is_public_suffix($tld); return 0;