match from and envelope-from domains even if they are written in

different way (camelcase or uppercase)
msimerson · Oct 21, 2024 · 80625e6 · 80625e6
1 parent c535e13
commit 80625e6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Mail/DMARC/PurePerl.pm b/lib/Mail/DMARC/PurePerl.pm
@@ -266,7 +266,7 @@ sub is_spf_aligned {
 
     my $from_dom = $self->header_from or croak "header_from not set!";
 
-    if ( $spf_dom eq $from_dom ) {
+    if ( lc($spf_dom) eq lc($from_dom) ) {
         $self->result->spf('pass');
         $self->result->spf_align('strict');
         return 1;