X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fepoll.t;h=f346b3871fd682c462752717e202fa4290847cba;hb=ed0167d2a851b4f5128f57ad60309a0b76e62cfa;hp=a1e73e07387d8cd74e1813ab06d312d7f2a1ae8c;hpb=8862c33ae93eea1af6246cd3c7a81e0a122186bf;p=public-inbox.git
diff --git a/t/epoll.t b/t/epoll.t
index a1e73e07..f346b387 100644
--- a/t/epoll.t
+++ b/t/epoll.t
@@ -1,11 +1,14 @@
+#!perl -w
+# Copyright (C) 2020-2021 all contributors
+# License: AGPL-3.0+
use strict;
+use v5.10.1;
use Test::More;
-use IO::Handle;
use PublicInbox::Syscall qw(:epoll);
plan skip_all => 'not Linux' if $^O ne 'linux';
my $epfd = epoll_create();
ok($epfd >= 0, 'epoll_create');
-my $hnd = IO::Handle->new_from_fd($epfd, 'r+'); # close on exit
+open(my $hnd, '+<&=', $epfd); # for autoclose
pipe(my ($r, $w)) or die "pipe: $!";
is(epoll_ctl($epfd, EPOLL_CTL_ADD, fileno($w), EPOLLOUT), 0,
@@ -17,6 +20,6 @@ is(scalar(@events), 1, 'got one event');
is($events[0], fileno($w), 'got expected FD');
close $w;
epoll_wait($epfd, 100, 0, \@events);
-is(@events, 0, 'epoll_wait timeout');
+is(scalar(@events), 0, 'epoll_wait timeout');
done_testing;