From affd8c3f9339077a08b2fda99140b752c52311ae Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Wed, 11 Feb 2015 12:51:58 -0800
Subject: [PATCH] limit split = to 2 fields

(for cases where the field had more than one = sign)
---
 lib/Qpsmtpd/SMTP.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 6074ada..70e25c5 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -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;