view release on metacpan or  search on metacpan

Linux.pm  view on Meta::CPAN

        xs_releaselock();
        if (($err == 0) || ($err2 == 0)) {
            croak "/etc/passwd or /etc/shadow may not exist, /etc/opasswd and /etc/oshadow contain the correct entries";
        }
        croak "Couldn't open /etc/passwd for writing";
    };

    # if a shadow group exists give it read permissions
    my @sgrp = getgrnam("shadow");
    if (@sgrp > 1) {
        chown 0, $sgrp[2], "/etc/shadow";
        chmod 0640, "/etc/shadow";
    } else {
        chmod 0600, "/etc/shadow";
    }

    my $save_separator = $/; # just in case the program using this has changed it
    $/ = "\n";
    foreach my $user (@{$info}) {
        if (exists($entries{$user})) {
            my @data = @{$entries{$user}};