diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-29 19:04:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-29 19:04:59 +0000 |
| commit | 6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef (patch) | |
| tree | 94ddd2d403f5e522a8eaac13b9e78c2587292511 /perl-install | |
| parent | 76f0cda177074d4887e8120d80ca5339d9daec7f (diff) | |
| download | drakx-6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef.tar drakx-6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef.tar.gz drakx-6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef.tar.bz2 drakx-6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef.tar.xz drakx-6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef.zip | |
rename allocUsers() to alloc_user_faces() (better suited)
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}); |