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

[mser...@cvs.perl.org]

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