view release on metacpan or  search on metacpan

lib/Sys/Tlock.pm  view on Meta::CPAN

    my $m = marker($n);
    my ($o,$g) = owner($n)->@*;
    my $p = patience($n);

    take_master($label,$d,$m,$p) or return;

    my $t;
    if ( not tlock_taken($label,$n->%*) ) {
        my $tdn = tdn($label,$d,$m);
        mkdir $tdn if not -e $tdn;
        chown $o , $g , $tdn;
        mkdir $tdn.'/d' if not -e $tdn.'/d';
        chown $o , $g , $tdn.'/d';
        $t = int time;
        utime undef , $t , $tdn;
        utime undef , $timeout , $tdn.'/d';
        };

    release_master($label,$d,$m);
    $_ = $t; return $_;
    }; # sub tlock_take