[bcn-pm] Sys::AlarmCall

[Jose Luis Perez Diez]

El Wednesday, 1 de April de 2009 13:55:12 Jose Luis Perez Diez va escriure:
> sub que {
> 	return "error\n" if ($_ == 2);
>         return "timeout\n" if ($_ == -1);
> 	return "$_\n";
> }

Opss 

sub que {
        my $valor= shift;
        return "error\n" if ($valor == 2);
        return "timeout\n" if ($valor == -1);
        return "$valor\n";
}