From b442d002f179208f57d9f5009fbf97d17877da6a Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sat, 1 Nov 2003 10:05:23 +0000
Subject: [PATCH] Don't unfold header lines.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@178 958fd67b-6ff1-0310-b445-bb7760255be9
---
 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 d545544..8807955 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -343,7 +343,7 @@ sub data {
       s/^\.\./\./;
       if ($in_header and m/^\s*$/) {
 	$in_header = 0;
-	my @header = split /\n/, $buffer;
+	my @header = split /^/m, $buffer;
 
 	# ... need to check that we don't reformat any of the received lines.
 	#