diff options
| author | carlosg <carlosg> | 2006-06-05 12:35:49 +0000 |
|---|---|---|
| committer | carlosg <carlosg> | 2006-06-05 12:35:49 +0000 |
| commit | 4d8ff7de3bc8ac6f4a7849e867ec10b9174d81f5 (patch) | |
| tree | 411a366c408c814fc784241741172345447ab320 /Users/Groups.pm | |
| parent | fa460722913213f7abe0cd0d87fb4a7588574f81 (diff) | |
2006-06-05 Carlos Garnacho <carlosg@gnome.org>
* Users/Users.pm (change_user_chfn): specify which user to modify.
(add_user): remove a stray apostrophe.
* Users/Groups.pm (change_group): get the correct state for the users
Diffstat (limited to 'Users/Groups.pm')
| -rw-r--r-- | Users/Groups.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Users/Groups.pm b/Users/Groups.pm index bd228de..c5e912e 100644 --- a/Users/Groups.pm +++ b/Users/Groups.pm @@ -106,7 +106,7 @@ sub add_group sub change_group { my ($old_group, $new_group) = @_; - my (%users, $user, $users_arr, $str); + my (%users, %user, $users_arr, $str); my ($n, $o, $users, $i, $j, $max_n, $max_o, $r, @tmp); # for iterations @@ -138,7 +138,7 @@ sub change_group foreach $user (keys %users) { - $state = $users{$u}; + $state = $users{$user}; if ($state == 2) { |