Mailing List Archive

Author: sidney
Date: Sat Apr 20 09:07:07 2024
New Revision: 1917179

URL: http://svn.apache.org/viewvc?rev=1917179&view=rev
Log:
bug 8245 - fix undefined value error in DMARC in perl 5.16 and 5.18

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DMARC.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DMARC.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DMARC.pm?rev=1917179&r1=1917178&r2=1917179&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DMARC.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DMARC.pm Sat Apr 20 09:07:07 2024
@@ -333,7 +333,7 @@ sub _check_dmarc {
$dmarc_arc_verified = 1;
# if DMARC fails retry by reading data from AAR headers
# use Mail::SpamAssassin::Plugin::AuthRes if available to read ARC signature details
- my @spf_parsed = sort { ( $a->{authres_parsed}{spf}{arc_index} // 0 ) <=> ( $b->{authres_parsed}{spf}{arc_index} // 0 ) } @{$pms->{authres_parsed}{spf}};
+ my @spf_parsed = sort { ( $a->{authres_parsed}{spf}{arc_index} // 0 ) <=> ( $b->{authres_parsed}{spf}{arc_index} // 0 ) } @{$pms->{authres_parsed}{spf} // []};
my $old_arc_index = 0;
foreach my $spf_parse ( @spf_parsed ) {
last if not defined $spf_parse->{arc_index};