develooper Front page | perl.cvs.qpsmtpd | Postings from April 2007

[svn:qpsmtpd] r733 - trunk/lib/Qpsmtpd

From:
msergeant
Date:
April 10, 2007 11:09
Subject:
[svn:qpsmtpd] r733 - trunk/lib/Qpsmtpd
Message ID:
20070410180856.2F4FDCB9B8@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About