Bug #18052 for POE: POE::Component::Server::TCP error on win32

Hi, I'm trying to run the TCP sample code on win2k with ActivePerl 5.8.0, POE v0_3301: #!/usr/bin/perl use warnings; use strict; use POE qw(Component::Server::TCP); POE::Component::Server::TCP->new ( Port => 12345, ClientInput => \&client_input, ); POE::Kernel->run(); exit; sub client_input { my ( $heap, $input ) = @_[ HEAP, ARG0 ]; $heap->{client}->put($input); } And I get the following error: Please mail the following information to bug-POE@rt.cpan.org: ioctl(GLOB(0x1f6d1a8), FIONBIO, 1) fails: Bad file descriptor POE::Kernel::_data_handle_add('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8) ',0,'POE::Session=ARRAY(0x1df43d8)','POE::Wheel::SocketFactory(1) -> select accept','ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2021 POE::Kernel::_internal_select('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=AR RAY(0x1df43d8)','GLOB(0x1f6d1a8)','POE::Wheel::SocketFactory(1) -> select accept',0,'ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2079 POE::Kernel::select_read('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8)','PO E::Wheel::SocketFactory(1) -> select accept') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 187 POE::Wheel::SocketFactory::_define_accept_state('POE::Wheel::SocketFactory=AR RAY(0x1f6d1d8)') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 1032 POE::Wheel::SocketFactory::new('POE::Wheel::SocketFactory','BindPort',12345,' BindAddress','\x{0}\x{0}\x{0}\x{0}','SocketDomain','undef','Reuse','yes',...) called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 387 POE::Component::Server::TCP::__ANON__('undef','POE::Session=ARRAY(0x1df43d8)' ,'POE::Kernel=ARRAY(0x1cb31bc)','HASH(0x1df4390)','_start','POE::Kernel=ARRAY (0x1cb31bc)','undef','C:/Perl/site/lib/POE/Kernel.pm',1346,...) called at C:/Perl/site/lib/POE/Session.pm line 628 POE::Session::_invoke_state('POE::Session=ARRAY(0x1df43d8)','POE::Kernel=ARRA Y(0x1cb31bc)','_start','ARRAY(0x1c70df0)','C:/Perl/site/lib/POE/Kernel.pm',13 46,'undef') called at C:/Perl/site/lib/POE/Kernel.pm line 956 eval {...} called at C:/Perl/site/lib/POE/Kernel.pm line 955 POE::Kernel::_dispatch_event('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARR AY(0x1df43d8)','POE::Session=ARRAY(0x1df43d8)','_start',4,'ARRAY(0x1c70df0)', 'C:/Perl/site/lib/POE/Kernel.pm',1346,'undef',...) called at C:/Perl/site/lib/POE/Kernel.pm line 1343 POE::Kernel::session_alloc('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARRAY (0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 192 POE::Session::try_alloc('POE::Session=ARRAY(0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 538 POE::Session::create('POE::Session','inline_states','HASH(0x1df42c4)','args', 'ARRAY(0x1a6ddec)') called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 464 POE::Component::Server::TCP::new('POE::Component::Server::TCP','Port',12345,' ClientInput','CODE(0x1a81998)') called at demoserver.pl line 8 Please mail the following information to bug-POE@rt.cpan.org: ioctl(GLOB(0x1f6d1a8), FIONBIO, 1) fails: Bad file descriptor POE::Kernel::_data_handle_add('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8) ',0,'POE::Session=ARRAY(0x1df43d8)','POE::Wheel::SocketFactory(1) -> select accept','ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2021 POE::Kernel::_internal_select('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=AR RAY(0x1df43d8)','GLOB(0x1f6d1a8)','POE::Wheel::SocketFactory(1) -> select accept',0,'ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2079 POE::Kernel::select_read('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8)','PO E::Wheel::SocketFactory(1) -> select accept') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 187 POE::Wheel::SocketFactory::_define_accept_state('POE::Wheel::SocketFactory=AR RAY(0x1f6d1d8)') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 1032 POE::Wheel::SocketFactory::new('POE::Wheel::SocketFactory','BindPort',12345,' BindAddress','\x{0}\x{0}\x{0}\x{0}','SocketDomain','undef','Reuse','yes',...) called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 387 POE::Component::Server::TCP::__ANON__('undef','POE::Session=ARRAY(0x1df43d8)' ,'POE::Kernel=ARRAY(0x1cb31bc)','HASH(0x1df4390)','_start','POE::Kernel=ARRAY (0x1cb31bc)','undef','C:/Perl/site/lib/POE/Kernel.pm',1346,...) called at C:/Perl/site/lib/POE/Session.pm line 628 POE::Session::_invoke_state('POE::Session=ARRAY(0x1df43d8)','POE::Kernel=ARRA Y(0x1cb31bc)','_start','ARRAY(0x1c70df0)','C:/Perl/site/lib/POE/Kernel.pm',13 46,'undef') called at C:/Perl/site/lib/POE/Kernel.pm line 956 eval {...} called at C:/Perl/site/lib/POE/Kernel.pm line 955 POE::Kernel::_dispatch_event('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARR AY(0x1df43d8)','POE::Session=ARRAY(0x1df43d8)','_start',4,'ARRAY(0x1c70df0)', 'C:/Perl/site/lib/POE/Kernel.pm',1346,'undef',...) called at C:/Perl/site/lib/POE/Kernel.pm line 1343 POE::Kernel::session_alloc('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARRAY (0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 192 POE::Session::try_alloc('POE::Session=ARRAY(0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 538 POE::Session::create('POE::Session','inline_states','HASH(0x1df42c4)','args', 'ARRAY(0x1a6ddec)') called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 464 POE::Component::Server::TCP::new('POE::Component::Server::TCP','Port',12345,' ClientInput','CODE(0x1a81998)') called at demoserver.pl line 8 Please mail the following information to bug-POE@rt.cpan.org: ioctl(GLOB(0x1f6d1a8), FIONBIO, 1) fails: Bad file descriptor POE::Kernel::_data_handle_add('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8) ',0,'POE::Session=ARRAY(0x1df43d8)','POE::Wheel::SocketFactory(1) -> select accept','ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2021 POE::Kernel::_internal_select('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=AR RAY(0x1df43d8)','GLOB(0x1f6d1a8)','POE::Wheel::SocketFactory(1) -> select accept',0,'ARRAY(0x1c9a9fc)') called at C:/Perl/site/lib/POE/Kernel.pm line 2079 POE::Kernel::select_read('POE::Kernel=ARRAY(0x1cb31bc)','GLOB(0x1f6d1a8)','PO E::Wheel::SocketFactory(1) -> select accept') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 187 POE::Wheel::SocketFactory::_define_accept_state('POE::Wheel::SocketFactory=AR RAY(0x1f6d1d8)') called at C:/Perl/site/lib/POE/Wheel/SocketFactory.pm line 1032 POE::Wheel::SocketFactory::new('POE::Wheel::SocketFactory','BindPort',12345,' BindAddress','\x{0}\x{0}\x{0}\x{0}','SocketDomain','undef','Reuse','yes',...) called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 387 POE::Component::Server::TCP::__ANON__('undef','POE::Session=ARRAY(0x1df43d8)' ,'POE::Kernel=ARRAY(0x1cb31bc)','HASH(0x1df4390)','_start','POE::Kernel=ARRAY (0x1cb31bc)','undef','C:/Perl/site/lib/POE/Kernel.pm',1346,...) called at C:/Perl/site/lib/POE/Session.pm line 628 POE::Session::_invoke_state('POE::Session=ARRAY(0x1df43d8)','POE::Kernel=ARRA Y(0x1cb31bc)','_start','ARRAY(0x1c70df0)','C:/Perl/site/lib/POE/Kernel.pm',13 46,'undef') called at C:/Perl/site/lib/POE/Kernel.pm line 956 eval {...} called at C:/Perl/site/lib/POE/Kernel.pm line 955 POE::Kernel::_dispatch_event('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARR AY(0x1df43d8)','POE::Session=ARRAY(0x1df43d8)','_start',4,'ARRAY(0x1c70df0)', 'C:/Perl/site/lib/POE/Kernel.pm',1346,'undef',...) called at C:/Perl/site/lib/POE/Kernel.pm line 1343 POE::Kernel::session_alloc('POE::Kernel=ARRAY(0x1cb31bc)','POE::Session=ARRAY (0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 192 POE::Session::try_alloc('POE::Session=ARRAY(0x1df43d8)') called at C:/Perl/site/lib/POE/Session.pm line 538 POE::Session::create('POE::Session','inline_states','HASH(0x1df42c4)','args', 'ARRAY(0x1a6ddec)') called at C:/Perl/site/lib/POE/Component/Server/TCP.pm line 464 POE::Component::Server::TCP::new('POE::Component::Server::TCP','Port',12345,' ClientInput','CODE(0x1a81998)') called at demoserver.pl line 8 POE::Kernel's run() method was never called. I can get this sample to work under fedora core 4. Thanks