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
This commit is contained in:
Matt Sergeant 2005-06-23 21:05:44 +00:00
parent a4a62af847
commit a268ec079a

View File

@ -254,7 +254,7 @@ sub finish_continuation {
my $responder = $hook . "_respond"; my $responder = $hook . "_respond";
if (my $meth = $self->can($responder)) { if (my $meth = $self->can($responder)) {
warn("continuation finished on $self\n"); warn("continuation finished on $self\n");
return $meth->($self, @r, @$args); return $meth->($self, $r[0], $r[1], @$args);
} }
die "No ${hook}_respond method"; die "No ${hook}_respond method";
} }