7 local $SIG{'__WARN__'} = \&Carp::cluck;
9 use IO::Poll qw(POLLIN);
11 use constant FSEL_FILES => 16;
15 foreach my $i (0 .. (FSEL_FILES - 1)) {
16 sysopen($fds[$i], $ARGV[0] . '/' . sprintf('%X', $i), O_RDONLY)
20 my $poll = new IO::Poll;
21 foreach my $fd (@fds) {
22 $poll->mask($fd, POLLIN);
25 my $rc = $poll->poll();
29 foreach my $i (0 .. (FSEL_FILES - 1)) {
30 if (!$poll->events($fds[$i])) {
35 $rc = sysread($fds[$i], my $buf, 4096);
36 croak($!) if !defined($rc);