Re: fork() doesn't care about my sleep()?

[ikegami]

use Time::HiRes qw( time sleep );

sub unint_sleep($) {
    my $sleep_til = time + $_[0];
    for (;;) {
        my $sleep_dur = time - $sleep_til;
        last if $sleep_dur <= 0;
        sleep($sleep_dur);
    }
}