diff options
Diffstat (limited to 'lib/PublicInbox/LeiP2q.pm')
-rw-r--r-- | lib/PublicInbox/LeiP2q.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/LeiP2q.pm b/lib/PublicInbox/LeiP2q.pm index c5718603..302d7864 100644 --- a/lib/PublicInbox/LeiP2q.pm +++ b/lib/PublicInbox/LeiP2q.pm @@ -174,9 +174,9 @@ sub do_p2q { # via wq_do $lei->out(@q, "\n"); } -sub call { # the "lei patch-to-query" entry point - my ($cls, $lei, $input) = @_; - my $self = $lei->{p2q} = bless {}, $cls; +sub lei_p2q { # the "lei patch-to-query" entry point + my ($lei, $input) = @_; + my $self = $lei->{p2q} = bless {}, __PACKAGE__; if ($lei->{opt}->{stdin}) { $self->{0} = delete $lei->{0}; # guard from lei_atfork_child } else { |