diff options
| author | Matthew Sachs <matthewg@zevils.com> | 2002-02-18 08:19:01 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-18 17:36:05 +0000 |
| commit | 02cbb7367e3472ecd0b1e9b606e2174beb3f8d86 (patch) | |
| tree | 84ee49bc28fe8fec4de210d286d5caeff4d2da50 /ext/IO | |
| parent | 6ffa69ae0873f45a06f60e385932605e05e60bfa (diff) | |
| download | perl-02cbb7367e3472ecd0b1e9b606e2174beb3f8d86.tar.gz | |
Re: IO::Poll: Removing Handles
Message-Id: <20020218181901.GA19377@allevil.dhcp.zevils.com>
p4raw-id: //depot/perl@14750
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_poll.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/t/io_poll.t b/ext/IO/lib/IO/t/io_poll.t index f987d9905f..d1c5caa19d 100755 --- a/ext/IO/lib/IO/t/io_poll.t +++ b/ext/IO/lib/IO/t/io_poll.t @@ -15,7 +15,7 @@ if ($^O eq 'mpeix') { select(STDERR); $| = 1; select(STDOUT); $| = 1; -print "1..9\n"; +print "1..10\n"; use IO::Handle; use IO::Poll qw(/POLL/); @@ -80,3 +80,11 @@ $poll->remove($dupout); print "not " if $poll->handles; print "ok 9\n"; + +my $stdin = \*STDIN; +$poll->mask($stdin => POLLIN); +$poll->remove($stdin); +close STDIN; +print "not " + if $poll->poll(0.1); +print "ok 10\n"; |