Re: socket time out

[oha]

you could try using alarm in an eval block (untested):

eval {
    local $SIG{'ALRM'} = sub { die "Timed out" };
    alarm($timeout);
    while(<$conn>) {
       ....
       alarm($timeout);
    }
    alarm(0);
}
if ($@ =~ /Timed out/) {
    print STDOUT "Timed Out.\r\n";
}

Oha

[xarex]

being new to perl i tried that exactly as you said
but its giving complitaion errors,
could you please try to be a little more specific?
Thanks
K-

[Anonymous Monk]

It's just missing a ; in the example at the end of the eval closing brace:

eval {
    local $SIG{'ALRM'} = sub { die "Timed out" };
    alarm($timeout);
    while(<$conn>) {
       ....
       alarm($timeout);
    }
    alarm(0);
};
if ($@ =~ /Timed out/) {
    print STDOUT "Timed Out.\r\n";
}