bloonix has asked for the wisdom of the Perl Monks concerning the following question:

Hello together,

today I tested Strawberry Perl under Windows 8 and it seems that alarm() works. I am confused.
#!perl.exe use strict; use warnings; print scalar localtime, "\n"; eval { $SIG{__DIE__} = sub { alarm(0) }; $SIG{ALRM} = sub { die "timeout" }; alarm(3); sleep 5; alarm(0); }; print $@ if $@; print scalar localtime, "\n";
The output:
Fri May 22 17:21:27 2015
timeout at c:\test\ line 9.
Fri May 22 17:21:30 2015
Is that a new feature in newer Windows versions or does Strawberry Perl implements a workaround for alarm?

Regards, Jonny