http://www.perlmonks.org?node_id=649928


in reply to Re: socket time out
in thread socket time out

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-

Replies are listed 'Best First'.
Re^3: socket time out
by Anonymous Monk on Jan 04, 2008 at 11:24 UTC
    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";
    }