perl alarm

[Giorgos D. Pallas]

Γεια χαρά λιστές!

Το παρακάτω δεν θα έπρεπε να λειτουργεί;

$SIG{ALRM} = sub { insert_error("FATAL - timeout accessing $hostname"); 
exit;  };
alarm(300);

# diadikasia pou mporei na kollisei kapou

#apenergopoihsh alarm
alarm(0);


Έχει κανείς να προτείνει κάποιο ανάλογο τρόπο για το ίδιο αποτέλεσμα;

G.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/x-pkcs7-signature
Size: 6405 bytes
Desc: S/MIME Cryptographic Signature
URL: <http://lists.hellug.gr/pipermail/linux-greek-users/attachments/20080109/090f865e/attachment.bin>