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

[Jose Luis Perez Diez]

El Wednesday, 18 de March de 2009 13:00:23 Arnau Bria va escriure:
> Hola a tots,
>
> estic llegint la documentació d'un modulet de perl (timeout) i diu això:

Per casualitat no serà Sys::AlarmCall?

> 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').
>

Qualsevol escalar ($TIMEOUT) de un espai de noms (Sys::AlarmCall) es pot fer 
servir a qualsevol altre espai de noms qualificant-lo amb el nom del espai  
($Sys::AlarmCall::TIMEOUT)

> la meva pregunta és: com puc accedir a aquest valor (TIMEOUT) i
> canviar-lo? 

perl -Mwarnings -Mstrict -e'use vars qw($test2);our $test1="hello world\n";
$test2="no warnings\n";my $test3="does work?";print $main::test1;print 
$main::test2;print (($main::test3)?$main::test3:"lexical\n");'


> Si es pot, clar, perque si diu que default is TIMEOUT vol 
> dir que és modificable, no?

Si em sembla que el problema del us de les majúscules a la documentacio:

Sys::AlarmCall exports one function,
alarm_call TIMEOUT,FUNCTION,ARGS

i la font  :
$SCALAR_ERROR = 'ERROR ';
$ARRAY_ERROR = 'ERROR';
$TIMEOUT = 'TIMEOUT';

sub _alarm_sig_handler {
    die "Sys::AlarmCall::alarm_call went off\n";
}

sub alarm_call {
    # usage('INTEGER(>,0)','FUNCTION','LIST_OF_ARGUMENTS');
    my $timeout = shift;
    my $sub = shift;


> m'agradaria que em retornés un -1, per exemple...

$Sys::AlarmCall::TIMEOUT = "-1 RTFM" ;#serveix

> gràcies!