diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 4bcb66103..0ffaace15 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -43,7 +43,7 @@ sub addKdmIcon { eval { cp_af(facesdir() . $icon . ".png", $dest) } if $icon; } -sub allocUsers { +sub alloc_user_faces { my ($users) = @_; my @m = my @l = facesnames(); foreach (grep { !$_->{icon} || $_->{icon} eq "automagic" } @$users) { @@ -56,7 +56,7 @@ sub allocUsers { sub addUsers { my ($users) = @_; - allocUsers($users); + alloc_user_faces($users); foreach my $u (@$users) { run_program::rooted($::prefix, "usermod", "-G", join(",", @{$u->{groups}}), $u->{name}) if !is_empty_array_ref($u->{groups}); addKdmIcon($u->{name}, delete $u->{auto_icon} || $u->{icon}); |