}
# --- Move the old file out of the way ---
-
+
!-e $file or rename("${file}", "${file}-") or do {
unlink "${file}.lock";
unlink "${file}.edit";
$#f = 3;
$a = { data => [ @f ],
members => { hashify(split /,/, $f[3]) },
- name => $f[0], gid => $f[2] };
+ name => $f[0], gid => $f[2] };
$gbynam{$a->{name}} = $gbygid{$a->{gid}} = $a;
}
$gr->close;
# --- Check that the group's administrators exist ---
if ($sg->{data}[2] ne "" && !$suyb) {
- my @admins =
+ my @admins =
my $admin;
foreach $admin (split(/,/, $sg->{data}[2])) {
exists $ubynam{$admin} or