4 unless(grep /blib/, @INC) {
6 unshift @INC, '../lib' if -d '../lib';
10 select(STDERR); $| = 1;
11 select(STDOUT); $| = 1;
16 use IO::Poll qw(/POLL/);
18 my $poll = new IO::Poll;
20 my $stdout = \*STDOUT;
21 my $dupout = IO::Handle->new_from_fd(fileno($stdout),"w");
23 $poll->mask($stdout => POLLOUT);
26 unless $poll->mask($stdout) == POLLOUT;
29 $poll->mask($dupout => POLLPRI);
32 unless $poll->mask($dupout) == POLLPRI;
37 if ($^O eq 'MSWin32') {
38 print "ok 3 # skipped, doesn't work on non-socket fds\n";
39 print "ok 4 # skipped, doesn't work on non-socket fds\n";
43 unless $poll->events($stdout) == POLLOUT;
47 if $poll->events($dupout);
51 my @h = $poll->handles;
56 $poll->remove($stdout);
65 if $poll->mask($stdout);
71 if $poll->events($stdout);