Ignore empty/wrong lines on whitelist_dmarc file (#219)

msimerson · Feb 14, 2024 · 8d3d283 · 8d3d283
1 parent bafcc08
commit 8d3d283
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Mail/DMARC/PurePerl.pm b/lib/Mail/DMARC/PurePerl.pm
@@ -297,6 +297,7 @@ sub is_whitelisted {
         foreach my $line ( split /\n/, $self->slurp($white_file) ) {
             next if $line =~ /^#/; # ignore comments
             my ($lip,$reason) = split /\s+/, $line, 2;
+            next if not defined $lip;
             $self->{_whitelist}{$lip} = $reason;
         };
     };