view release on metacpan or  search on metacpan

lib/MMM/Utils.pm  view on Meta::CPAN

sub setid {
    my ($user, $group) = @_;

    my ($uid, $gid);

    if ($user
        && ($> == 0 || $< == 0)) { # if we're not root, we can only ignore this
        if ($user =~ /^\d+$/) {
            $uid = $user;
            my @uinfo = POSIX::getpwuid($uid);
            if (!scalar(@uinfo)) {
                return(undef, sprintf('User %s don\'t exists', $uid));
            }
            $gid = $uinfo[3];
        } else {
            my @uinfo = POSIX::getpwnam($user);
            if (scalar(@uinfo)) {
                ($uid, $gid) = ($uinfo[2], $uinfo[3]);
                $group = $uinfo[3];
            } else {