my $log_delay = $l_time - $start_log_time;
my $real_delay = time - $start_prog_time;
if ($real_delay < $log_delay) {
- print STDERR "usleep for ", $log_delay - $real_delay, "\n";
+ # print STDERR "usleep for ", $log_delay - $real_delay, "\n";
usleep(1000_000 * ($log_delay - $real_delay));
}
}