Help for this page

Select Code to Download


  1. or download this
    use Fcntl qw(:DEFAULT :flock);
    # assume $flock_enabled set accordingly
    ...
        flock($fh, LOCK_EX) || die "Can't flock $fn: $!" if $flock_enabled
    +;
        return $fh;
    }