You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by jm...@apache.org on 2007/02/15 19:59:02 UTC
svn commit: r508076 -
/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm
Author: jm
Date: Thu Feb 15 10:59:01 2007
New Revision: 508076
URL: http://svn.apache.org/viewvc?view=rev&rev=508076
Log:
bug 5179: perl does silly things with \r\n line endings on non-UNIX platforms. use \015\012 instead
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm?view=diff&rev=508076&r1=508075&r2=508076
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/DKIM.pm Thu Feb 15 10:59:01 2007
@@ -252,9 +252,11 @@
# feed content of message into verifier, using \r\n endings,
# required by Mail::DKIM API (see bug 5300)
+ # note: bug 5179 comment 28: perl does silly things unless we use \015\012
+ # instead of \r\n
eval {
foreach my $line (split(/\n/s, $scan->{msg}->get_pristine)) {
- $line =~ s/\r?$/\r\n/s; # ensure \r\n ending
+ $line =~ s/\r?$/\015\012/s; # ensure \015\012 ending
$message->PRINT($line);
}
};