"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/
