Bug #111370 for Net-Telnet: Timeout not honored under Windows 7 Enterprise

> I've posted this at http://perlmonks.org/?node_id=1153372 to see if I can > get a quick fix or workaround. The preliminary response by Corion is "On > Windows, alarm() doesn't interrupt system calls, so that's maybe why the > timeout isn't working properly." > > ----- > > I'm having difficulty controlling the timeout when initializing a > Net::Telnet session. I set Timeout to 1, I've also set -timeout to 1. > However, the the constructor is taking between 20 and 30 seconds before it > times out and returns to the code. I need to bring this down to 2 seconds > or less. Is there any way to make this call abort if it is not successfull > within 1 or 2 seconds? > > Note that I am only having this problem in Windows. On the mac, the timeout > works just fine. > > OS: Windows 7 Enterprise Version 6.1 (Build 7601: Service Pack 1) > > PERL: v5.16.3 built for MSWin32-x86-multi-thread > > This is ActivePerl 5.16.3 Build 1604 according to Windows. > > Here is the code to reproduce the problem: > > #!/usr/bin/perl > # > > use strict; > use warnings; > use Net::Telnet; > > my $host = '192.168.130.112'; # valid host that is offline > my $port = 10001; > > print "DEBUG 1\n"; > my $t = new Net::Telnet (Host => $host, > Port => $port, > Timeout => 1, > # -timeout => 1, > Prompt => '/Escape character is.+\n/', > Rs => ' ', > Ors => '', > Binmode => 1, > Telnetmode => 1, > Errmode => 'return'); > print "DEBUG 2\n"; > if (!$t) { > die "Failed to create telnet session\n"; > }