Subject: | "" issue in PublicKey.pm |
Date: | Tue, 15 Oct 2019 18:02:30 +0000 |
To: | "bug-Mail-DKIM [...] rt.cpan.org" <bug-Mail-DKIM [...] rt.cpan.org> |
From: | Todd Richmond <trichmond [...] proofpoint.com> |
Need to strip “ from PublicKey.pm in addition to other whitespace chars
--- lib/Mail/DKIM/PublicKey.pm.orig 2019-03-14 18:26:29.371100459 -0700
+++ lib/Mail/DKIM/PublicKey.pm 2019-03-15 16:21:38.554348810 -0700
@@ -391,8 +391,8 @@
my $p = $self->get_tag('p');
- # remove whitespace (actually only LWSP is allowed)
- $p =~ tr/\015\012 \t//d if defined $p;
+ # remove whitespace (actually only LWSP is allowed) and double quote (long string delimiter)
+ $p =~ tr/\015\012 \t"//d if defined $p;
return $p;
}