X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;ds=sidebyside;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
+# Copyright (C) all contributors
# License: AGPL-3.0+
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}->();
}
}