[bcn-pm] variable $Sys::AlarmCall::TIMEOUT

[Xavier Noria]

2009/3/18 Arnau Bria <arnau a emergetux.net>:

> estic llegint la documentació d'un modulet de perl (timeout) i diu això:
>
> If the FUNCTION times out (i.e. doesn't return before TIMEOUT - 1),
> returns the value given by the variable $Sys::AlarmCall::TIMEOUT
> (default is 'TIMEOUT').
>
>
> la meva pregunta és: com puc accedir a aquest valor (TIMEOUT) i
> canviar-lo? Si es pot, clar, perque si diu que default is TIMEOUT vol
> dir que és modificable, no?
>
> m'agradaria que em retornés un -1, per exemple...

Es una package variable que per defecte val la cadena 'TIMEOUT'. Pots
assignar-hi el que vulguis:

use Sys::AlarmCall;

$Sys::AlarmCall::TIMEOUT = -1;
alarm_call 1, sub { sleep 2 }; # => -1