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:
parent
a4a62af847
commit
a268ec079a
@ -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";
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user