Commit 3fe05e49 authored by Kirk Webb's avatar Kirk Webb

Bug fixes.

parent e102a823
...@@ -225,7 +225,7 @@ sub doboot() ...@@ -225,7 +225,7 @@ sub doboot()
if ($exists) { if ($exists) {
if (WINDOWS()) { if (WINDOWS()) {
# Windows needs to know all of the groups by name. # Windows needs to know all of the groups by name.
os_groupgid($group, $gid); os_groupgid($gid, $group);
} }
else { else {
if ($gid != $curgid) { if ($gid != $curgid) {
......
...@@ -576,7 +576,7 @@ sub os_groupadd($$) ...@@ -576,7 +576,7 @@ sub os_groupadd($$)
my %gh = ( my %gh = (
'name' => $group, 'name' => $group,
); );
my $error my $error;
if (!LocalGroupAdd("",$GLEVEL,\%gh,\$error)) { if (!LocalGroupAdd("",$GLEVEL,\%gh,\$error)) {
my $err = Win32::GetLastError(); my $err = Win32::GetLastError();
warning("GroupAdd failed: $err, $error\n"); warning("GroupAdd failed: $err, $error\n");
...@@ -609,7 +609,7 @@ sub os_addtogroup($$) ...@@ -609,7 +609,7 @@ sub os_addtogroup($$)
if (!exists($groupMembers{$gname})) { if (!exists($groupMembers{$gname})) {
$groupMembers{$gname} = []; $groupMembers{$gname} = [];
} }
push @$groupMembers{$gname}, $login; push(@{$groupMembers{$gname}}, $login);
return 0; return 0;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment