[svn:qpsmtpd] rev 450 - branches/high_perf/lib

Author: msergeant
Date: Thu Jun 23 14:05:44 2005
New Revision: 450

Modified:
   branches/high_perf/lib/Qpsmtpd.pm
Log:
Make _respond methods work when only one value is returned


Modified: branches/high_perf/lib/Qpsmtpd.pm
==============================================================================
--- branches/high_perf/lib/Qpsmtpd.pm	(original)
+++ branches/high_perf/lib/Qpsmtpd.pm	Thu Jun 23 14:05:44 2005
@@ -254,7 +254,7 @@ sub finish_continuation {
   my $responder = $hook . "_respond";
   if (my $meth = $self->can($responder)) {
     warn("continuation finished on $self\n");
-    return $meth->($self, @r, @$args);
+    return $meth->($self, $r[0], $r[1], @$args);
   }
   die "No ${hook}_respond method";
 }