I time stamp a lot of my file interactions with $stamp = time(), but
about one out of a hundred or so stamps gives me the system epoch
date instead of the true date. Correct me if I'm wrong, but I am
assuming that the time() function makes a system call, and that it
can be checked for failure. To do this, I've written the following
"try again" routine
sub get_time {
if ($stamp = time() ) {return}
else {$stamp = time()}
$stamp;
}
I could also add some elsif's to repeat the try again, or a short
sleep between tries, if that would help. Or maybe I need a whole new
approach? I can try this out, but it will take weeks to get enough
results to see if it works. Any suggestions would be greatly
appreciated.
Rick Triplett
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
