alarm for windows?

[ferm]

Hi,

I'm using Perl v5.6.1 built for MSWin32-x86-multi-thread on a win 2000 server computer.

My perl script sometimes stops the execution indefinitely without finishing!
to prevent this behaviour I tried to use alarm to detect when this happens...
but it doesn't work on Windows OS...do you know any way to simulate this function?
(to call a function if a timeout reaches its limit!)

Thank you!

 

[Displeaser]

Hi,

use warnings;
use strict;

$SIG{ALRM} = sub { die "timeout" };

eval {
alarm(10);
sleep 60;
alarm(0);
};

works on w2k.

Displeaser

 

[ferm]

Hi,

Which version of perl do you use? When I execute this code
(without the eval) I receive the next error:

The Unsupported function alarm function is unimplemented at testAlarm.pl line 6.