From 02cbb7367e3472ecd0b1e9b606e2174beb3f8d86 Mon Sep 17 00:00:00 2001
From: Matthew Sachs <matthewg@zevils.com>
Date: Mon, 18 Feb 2002 08:19:01 -0500
Subject: Re: IO::Poll: Removing Handles    Message-Id:
 <20020218181901.GA19377@allevil.dhcp.zevils.com>

p4raw-id: //depot/perl@14750
---
 ext/IO/lib/IO/t/io_poll.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'ext/IO')

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";
-- 
cgit v1.2.1