about summary refs log tree commit homepage
path: root/lib/PublicInbox/GetlineBody.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/GetlineBody.pm')
-rw-r--r--lib/PublicInbox/GetlineBody.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/PublicInbox/GetlineBody.pm b/lib/PublicInbox/GetlineBody.pm
index f8cdd1b7..750a8c53 100644
--- a/lib/PublicInbox/GetlineBody.pm
+++ b/lib/PublicInbox/GetlineBody.pm
@@ -13,10 +13,11 @@ use strict;
 use warnings;
 
 sub new {
-        my ($class, $rpipe, $end, $buf, $filter) = @_;
+        my ($class, $rpipe, $end, $end_arg, $buf, $filter) = @_;
         bless {
                 rpipe => $rpipe,
                 end => $end,
+                end_arg => $end_arg,
                 buf => $buf,
                 filter => $filter || 0,
         }, $class;
@@ -40,10 +41,9 @@ sub getline {
 
 sub close {
         my ($self) = @_;
-        my $rpipe = delete $self->{rpipe};
+        my ($rpipe, $end, $end_arg) = delete @$self{qw(rpipe end end_arg)};
         close $rpipe if $rpipe;
-        my $end = delete $self->{end};
-        $end->() if $end;
+        $end->($end_arg) if $end;
 }
 
 1;