From c2e2f29878cec2c0c4d9b55895438a8a2577aff2 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 10 Apr 2007 18:08:55 +0000
Subject: [PATCH] Work around splitting up of return values in hooks

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@733 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/SMTP.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index e10327d..c3081d4 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -695,12 +695,12 @@ sub data_respond {
 
 sub received_line {
   my ($self, $smtp, $authheader, $sslheader) = @_;
-  my ($rc, $received) = $self->run_hooks("received_line", $smtp, $authheader, $sslheader);
+  my ($rc, @received) = $self->run_hooks("received_line", $smtp, $authheader, $sslheader);
   if ($rc == YIELD) {
     die "YIELD not supported for received_line hook";
   }
   elsif ($rc == OK) {
-    return $received;
+    return join("\n", @received);
   }
   else { # assume $rc == DECLINED
     return  "from ".$self->connection->remote_info