view release on metacpan or  search on metacpan

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

    if ($m !~ m/^[a-zA-Z]/) { warn 'Bad first character in marker.'; return undef; };
    if ($m !~ m/[a-zA-Z0-9]$/) { warn 'Bad last character in marker.'; return undef; };
    if ($m =~ m/[^a-zA-Z0-9\-\_]/) {warn 'Bad character in marker.'; return undef; };
    return $m;
    };


my sub owner_check( $o ) {
    return undef if not defined $o;
    return [-1,-1] if $o == -1;
    my $g = (getpwuid($o))[3];
    if (not defined $g) { warn 'Owner "'.$o.'" not found.'; return undef; };
    return [$o,$g];
    };


my sub patience_check( $p ) {
    return undef if not defined $p;
    if ($p !~ m/^\d+(\.\d+)?$/n) { warn 'Patience set to bad value "'.$p.'".'; return undef; };
    return $p;
    };