Re: Odd problems with alarm()

[Dr.Ruud]

"Matthew Tice" schreef:

> eval {
>   local $SIG{ALRM} = sub {die "alarm\n"};
>   alarm 2;
>   $test = `ls @ARGV[0]`;
>   alarm 0;
> };
> 
> if ($@) {
>   die unless $@ eq "alarm\n";
>   # Timed out - error
>   exit 1;
> } else {
>   # Okay
>   exit 0;
> }

  eval {
    local $SIG{ALRM} = sub {die "alarm\n"};
    alarm 2;
    $test = `ls $ARGV[0]`;
    alarm 0;
    1;
  }
  or do {
    my $err = $@;
    alarm 0;
    $err ||= "Unknown error";
    die $err unless $err eq "alarm\n";
    # Timed out - error
    exit 1;
  }

  # Okay
  exit 0;

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/