4 unless(grep /blib/, @INC) {
11 print "1..0 # Skip: broken on MPE/iX\n";
15 select(STDERR); $| = 1;
16 select(STDOUT); $| = 1;
21 use IO::Poll qw(/POLL/);
23 my $poll = new IO::Poll;
25 my $stdout = \*STDOUT;
26 my $dupout = IO::Handle->new_from_fd(fileno($stdout),"w");
28 $poll->mask($stdout => POLLOUT);
31 unless $poll->mask($stdout) == POLLOUT;
34 $poll->mask($dupout => POLLPRI);
37 unless $poll->mask($dupout) == POLLPRI;
42 if ($^O eq 'MSWin32') {
43 print "ok 3 # skipped, doesn't work on non-socket fds\n";
44 print "ok 4 # skipped, doesn't work on non-socket fds\n";
48 unless $poll->events($stdout) == POLLOUT;
52 if $poll->events($dupout);
56 my @h = $poll->handles;
61 $poll->remove($stdout);
70 if $poll->mask($stdout);
76 if $poll->events($stdout);
79 $poll->remove($dupout);