1#!/usr/bin/perl 2 3# Regression test for https://github.com/Perl/perl5/issues/17447 4 5use strict; 6use warnings; 7 8use Test::More tests => 2; 9 10use IO::Select; 11use IO::Handle; 12 13pipe( my $rd, my $wr ) or die "Cannot pipe() - $!"; 14binmode $rd; 15binmode $wr; 16$wr->syswrite("data\n"); 17 18my $select = IO::Select->new(); 19$select->add($rd); 20 21is( scalar $select->handles, 1, '$select has 1 handle' ); 22 23# close first, then remove afterwards 24$rd->close; 25$select->remove($rd); 26 27is( scalar $select->handles, 0, '$select has 0 handles' ); 28 29exit; 30