socket timeout

[Petr Klimovic]

 MP> Tomu nerozumim, jestlize nikno neposloucha, tak nenavazu spojeni 
 MP> ne ?

 MP> Nejak takhle:

 MP>    my $sock = new IO::Socket::INET(
 MP>                         PeerAddr => $server, PeerPort => $port, 
 MP> Proto
 =>>
 MP>                         'tcp'));

 MP>    die("Nelze se připojit k serveru na $server:$port ".
 MP>        "kvuli chybe:\n$!\nPravděpodobně není spuštěný server.\n")
 MP>        unless defined $sock;


Tohle bude cekat na odezvu druhe strany nejakou dobu, kterou 
neovlivnim. Ja si chci urcit jak dlouho ma cekat, nez prohlasi druhy 
konec za neodpovidajici.

Petr

... Pokud je spravna odpoved, nikoho nezajima, jestli neni spatna 
otazka.