Net::Ping

[Pavel Smerk]

	Ahoj vespolek,

nahodou jsem zabrousil do Net/Ping.pm a koukam, ze v ping_tcp je nasledujici
kousek kodu:

    $SIG{'ALRM'} = sub { die };
    alarm($timeout);        # Interrupt connect() if we have to
            
    $ret = 0;               # Default to unreachable
    eval <<'EOM' ;
        return unless connect($self->{"fh"}, $saddr);
        $ret = 1;
EOM
    alarm(0);

Nemuze se stat, ze kdyz pouziju Net::Ping a zkusim nekam pingnout, pri
vhodne konstelaci hvezd umru? Konkretne mi pripada, ze pokud instrukce mezi
alarm($timeout) a koncem prikazu eval budou trvat "presne" $timeout, muze mi
byt poslan SIGALRM v dobe kdy uz nejsem v evalu, ale jeste jsem nestihl
zrusit timer. Nemelo by v eval byt jeste nejake $SIG{ALRM} = ...? Nebo neco
funguje jinak, nez si myslim?
						Diky a s pozdravem	P.