From 6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Nov 2004 19:04:59 +0000
Subject: rename allocUsers() to alloc_user_faces() (better suited)

---
 perl-install/any.pm | 4 ++--
 1 file 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});
-- 
cgit v1.2.1