$SIG{ALRM} and windows vista?

[7stud]

Can anyone tell me what is the matter with the following code? Is it a problem with the code or with Windows Vista?

use strict;
use warnings;
use 5.010;

print 'Enter your password: ';

my $password = eval {
    local $SIG{ALRM} = sub {die "timeout\n"};
    alarm 5;
    return <STDIN>;
};

alarm 0;

if ($@ =~ /timeout/) {
    say "You timed out.";
}

[ikegami]

Signals are a unix thing.

[Anonymous Monk]

And that particular one works on windows

[ikegami]

readline does not emulate alarm signal interruptions.

(I suppose it's actually the lower PerlIO layers that don't emulate them, or maybe something at an even lower level.)

[7stud]

Not for me. The code doesn't time out on Windows Vista.

[desemondo]

I think you forgot to tell us what the problem is...

Your line print 'Enter your password: '; won't appear unless you've disabled buffering or you begin reading from STDIN... If that is your problem then set $| = 1

Updated: Thanks ikegami.

[ikegami]

Not so. Reading from STDIN flushes STDOUT.

[BrowserUk]

You're being bitten by Safe Signals. And the problem is not sourced in, nor confined to Windows.

UPDATE: ikegami's right!

I would have sworn that at one point after alarm was implemented on Windows and before Safe Signals were introduced, that this particular scenario worked. But I must be mixing up my memories, because it now doesn't regardless of the setting of PERL_SIGNALS=unsafe.

Sorry for the bum steer.

[ikegami]

Not true.

$ perl 815492.pl
Enter your password: You timed out.

Signals for which there is a handler will interrupt I/O operations (at the OS level) even under safe signals. readline returns (with errno = EINTR) as soon as the signal is received, allowing the signal handler to be called within milliseconds even under safe signals.

[BrowserUk]

Not on my Vista system.

[ikegami]

I would have sworn that at one point after alarm was implemented on Windows and before Safe Signals were introduced

alarm was first implemented on Windows in 5.8.0. Safe Signals were also introduced then.

Using 5.8.0 with PERL_SIGNALS=unsafe, alarm didn't interrupt <STDIN>.