lowercase $from_dom and $spf_dom variables

Co-authored-by: Matt Simerson <matt@tnpi.net>
msimerson · Oct 22, 2024 · 2f6514c · 2f6514c
1 parent 80625e6
commit 2f6514c
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 ( lc($spf_dom) eq lc($from_dom) ) {
         $self->result->spf('pass');