How can I time out a subroutine/function?
print "My code is executing...the next sub inokation
takes a long time simetimes. SO, I want to ensure that
at max it should take 5 secsonds.";
my $device_name = Quota::getqcarg($path);
I want to timeout Quota::getqcarg($path) but I don't
want to use the $SIG{ALRM} technique because I am
using a older version of Perl which doesn't support
safe/defferred signals.
Is there any other technique by which I can achive
this timeout?
Thanks,
Arijit
____________________________________________________
Start your day with Yahoo! - make it your home page
http://www.yahoo.com/r/hs
_______________________________________________
Perl-Unix-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
