summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-29 19:04:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-29 19:04:59 +0000
commit6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef (patch)
tree94ddd2d403f5e522a8eaac13b9e78c2587292511 /perl-install
parent76f0cda177074d4887e8120d80ca5339d9daec7f (diff)
downloaddrakx-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.pm4
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});