lowercase match from and envelope-from domains (#249)

msimerson · Oct 22, 2024 · e55a7ce · e55a7ce
1 parent c535e13
commit e55a7ce
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Mail/DMARC/PurePerl.pm b/lib/Mail/DMARC/PurePerl.pm
@@ -264,7 +264,8 @@ sub is_spf_aligned {
     $self->result->spf('fail');
     return 0 if !$spf_dom;
 
-    my $from_dom = $self->header_from or croak "header_from not set!";
+    my $from_dom = lc $self->header_from or croak "header_from not set!";
+    $spf_dom = lc $spf_dom;
 
     if ( $spf_dom eq $from_dom ) {
         $self->result->spf('pass');