osetreni chyboveho stavu

[Petr Bartos]

Dobry den,
vytvarim nejaky objekt, a pokud se jeho inicializace nepovede,
potreboval bych, aby to nemelo vliv na probehnuti zbytku programu.

O co konkretne jde:
<CODE>
$host = ""; #umyslne prazdne, aby byla chyba
$socket = new IO::Socket::INET(PeerAddr => $host,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => '2') or print "Nastala nejaka chyba!\n";
</CODE>

vytiskne se chybova hlaska za "or" a skript skonci.
Vsechny moje napady jak to vyresit nejsou programatorsky pekne, prosim
poradte.

Petr