X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FEOFpipe.pm;h=628e9366fe61dea68b56aa5c380368626071c8ed;hb=84050272ef72aadbc2fc6abf106a27ff1bb3ddc7;hp=e537e2aa2f34612937aba50aac5d4b7b75911761;hpb=710613c1a986ae124202409e67fb3d0b78f5fb43;p=public-inbox.git

diff --git a/lib/PublicInbox/EOFpipe.pm b/lib/PublicInbox/EOFpipe.pm
index e537e2aa..628e9366 100644
--- a/lib/PublicInbox/EOFpipe.pm
+++ b/lib/PublicInbox/EOFpipe.pm
@@ -1,14 +1,14 @@
-# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 package PublicInbox::EOFpipe;
-use strict;
+use v5.12;
 use parent qw(PublicInbox::DS);
 use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT);
 
 sub new {
-	my (undef, $rd, $cb, $arg) = @_;
-	my $self = bless {  cb => $cb, arg => $arg }, __PACKAGE__;
+	my (undef, $rd, $cb) = @_;
+	my $self = bless { cb => $cb }, __PACKAGE__;
 	# 1031: F_SETPIPE_SZ, 4096: page size
 	fcntl($rd, 1031, 4096) if $^O eq 'linux';
 	$self->SUPER::new($rd, EPOLLIN|EPOLLONESHOT);
@@ -17,7 +17,7 @@ sub new {
 sub event_step {
 	my ($self) = @_;
 	if ($self->do_read(my $buf, 1) == 0) { # auto-closed
-		$self->{cb}->($self->{arg});
+		$self->{cb}->();
 	}
 }