limit split = to 2 fields

(for cases where the field had more than one = sign)
This commit is contained in:
Matt Simerson 2015-02-11 12:51:58 -08:00
parent f3872b1e66
commit affd8c3f93

View File

@ -816,7 +816,7 @@ sub clean_authentication_results {
# Do not rename A-R header if DKIM signed
my $dkim_sig = $self->transaction->header->get('DKIM-Signature');
if ($dkim_sig) {
my %fields = map { split /=/ } split /;\s+/, $dkim_sig;
my %fields = map { split /=/, $_, 2 } split /;\s+/, $dkim_sig;
# print Data::Dumper::Dumper(\%fields);
if ($fields{h} && $fields{h} =~ /Authentication-Results/i) {
return;