Select Code to Download

karls-mac-mini:monks karl$ ./buks_patch.pl 0.01
processes: 4
...
karls-mac-mini:monks karl$ ./buks_patch.pl 1.0
processes: 4
fork: 20.0701560974121

#!/usr/bin/env perl 

...

say qq(fork: ), time - $start;

sub _waitpid_blocking {
    my $self = shift;
...

    return waitpid -1, 0;
}