From:	msergeant@cvs.perl.org	Date:	Tue Apr 10 12:08:56 2007
Subject:	[svn:qpsmtpd] r733 - trunk/lib/Qpsmtpd

Author: msergeant
Date: Tue Apr 10 11:08:55 2007
New Revision: 733

Modified:
   trunk/lib/Qpsmtpd/SMTP.pm

Log:
Work around splitting up of return values in hooks


Modified: trunk/lib/Qpsmtpd/SMTP.pm
==============================================================================
--- trunk/lib/Qpsmtpd/SMTP.pm	(original)
+++ trunk/lib/Qpsmtpd/SMTP.pm	Tue Apr 10 11:08:55 2007
@@ -695,12 +695,12 @@
 
 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