Re: On timing out with ALRM

[xdg]

It's not very elegant, but what about adding a lexical flag that gets set in your alarm handler?

{
  my $timed_out = 0;
  local $SIG{ ALRM } = sub { $timed_out++; die 'timeout' };
  alarm( MAX_SECONDS );
  eval {
    molasses_in_january();
    alarm( 0 );
  };
  if ( $@ ) {
    die $@ if ! $timed_out;
    handle_timeout();
  }
}