On 6/14/07, Bob McConnell <[EMAIL PROTECTED]> wrote
snip
On the Win32 platform, this form of select is only implemented for
sockets, and alarm() is not implemented at all.
snip
What makes you think the alarm function is not implemented? Running
the following code with the latest version of ActiveState Perl on
Windows XP works.
#!/usr/bin/perl
use strict;
use warnings;
print localtime() . "\n";
eval {
local $SIG{ALRM} = sub { die "timeout\n" };
alarm 3;
while (1) {}
};
print $@ if $@;
print localtime() . "\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
