Help for this page

Select Code to Download

Select or download this

use FileHandle;
usr Fcntl;
...

flock($RLOG, O_NONBLOCK) || warn "no NB lock $!";
flock($MLOG, O_NONBLOCK) || warn "no NB lock $!";

Select or download this

if ( scalar @_ == 1 ) {
        my $roll1 = @_;
...
        );
        $rollog1->rotate();
}