Make _respond methods work when only one value is returned

git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@450 958fd67b-6ff1-0310-b445-bb7760255be9
2005-06-23 21:05:44 +00:00 · 2005-06-23 21:05:44 +00:00 · a268ec079a
commit a268ec079a
parent a4a62af847
1 changed files with 1 additions and 1 deletions
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@ -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";
 }