view release on metacpan or  search on metacpan

bin/prefixadmin  view on Meta::CPAN

    $fmt_mode   .= ($mode & S_IXUSR) ? (($mode & S_ISUID) ? "s" : "x") : (($mode & S_ISUID) ? "S" : "-");
    $fmt_mode   .= ($mode & S_IRGRP) ? "r" : "-";
    $fmt_mode   .= ($mode & S_IWGRP) ? "w" : "-";
    $fmt_mode   .= ($mode & S_IXGRP) ? (($mode & S_ISGID) ? "s" : "x") : (($mode & S_ISGID) ? "S" : "-");
    $fmt_mode   .= ($mode & S_IROTH) ? "r" : "-";
    $fmt_mode   .= ($mode & S_IWOTH) ? "w" : "-";
    $fmt_mode   .= ($mode & S_IXOTH) ? (($mode & S_ISVTX) ? "t" : "x") : (($mode & S_ISVTX) ? "T" : "-");
    return($fmt_mode);
}

#  1. $cnt = chmod 0755, 'foo', 'bar';
#  2. chmod 0755, @executables;
#  3. $mode = '0644'; chmod $mode, 'foo'; # !!! sets mode to
#  4. # --w----r-T
#  5. $mode = '0644'; chmod oct($mode), 'foo'; # this is better
#  6. $mode = 0644; chmod $mode, 'foo'; # this is best

#  1. $cnt = chown $uid, $gid, 'foo', 'bar';
#  2. chown $uid, $gid, @filenames;

sub _share_file {
    my ($self, $file, $options, $shgrp_gid, $mode, $uid, $gid) = @_;

    my $verbose = $options->{verbose};
    my $err_msg = "";
    my ($retval);

bin/prefixadmin  view on Meta::CPAN

            if ($mode & S_IXGRP) {
                # do nothing
            }
            else {
                $share_mode |= S_IXGRP;
                $mode_needs_fix = 1;
            }
        }

        if ($mode_needs_fix) {
            $retval = chmod($share_mode, $file);
            if ($verbose) {
                printf(">>> chmod(%06o, $file) = [$retval]\n", $share_mode);
            }
        }
    }
    return($err_msg);
}

1;