diff options
author | Eric Wong <e@80x24.org> | 2020-12-31 13:51:50 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-01-01 05:00:40 +0000 |
commit | 52df89ced31a5685d37e17c62ccccd3db5aa3e62 (patch) | |
tree | 3b36d49255b646c1a7c80159db279e20c51979b3 /t | |
parent | d59a9cb667f106b29363795539b55116077bcd80 (diff) | |
download | public-inbox-52df89ced31a5685d37e17c62ccccd3db5aa3e62.tar.gz |
Since Perl exposes O_NONBLOCK as a constant, we can safely make SFD_NONBLOCK a constant, too. This is not the case for SFD_CLOEXEC, since O_CLOEXEC is not exposed by Perl despite being used internally in the interpreter.
Diffstat (limited to 't')
-rw-r--r-- | t/sigfd.t | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -4,7 +4,7 @@ use Test::More; use IO::Handle; use POSIX qw(:signal_h); use Errno qw(ENOSYS); -use PublicInbox::Syscall qw($SFD_NONBLOCK); +use PublicInbox::Syscall qw(SFD_NONBLOCK); require_ok 'PublicInbox::Sigfd'; SKIP: { @@ -42,8 +42,8 @@ SKIP: { } $sigfd = undef; - my $nbsig = PublicInbox::Sigfd->new($sig, $SFD_NONBLOCK); - ok($nbsig, 'Sigfd->new $SFD_NONBLOCK works'); + my $nbsig = PublicInbox::Sigfd->new($sig, SFD_NONBLOCK); + ok($nbsig, 'Sigfd->new SFD_NONBLOCK works'); is($nbsig->wait_once, undef, 'nonblocking ->wait_once'); ok($! == Errno::EAGAIN, 'got EAGAIN'); kill('HUP', $$) or die "kill $!"; |