From 4fb58f50234c507d82cea15e3708e1b4d1584503 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 31 Aug 2000 18:28:00 +0000
Subject: no_comment

---
 perl-install/any.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1a1414920..3edfc176d 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -21,11 +21,16 @@ my @users_male = (__("tie"), __("default"), __("curly")); #- don't change the na
 my @users_female = (__("brunette"), __("girl"), __("woman-blond"));
 @users = (@users_male, @users_female, __("automagic"));
 
+sub icon2file {
+    my ($icon, $prefix) = @_;
+    "$prefix/usr/share/icons/user-$icon-mdk.xpm";
+}
+
 sub addKdmIcon {
     my ($prefix, $user, $icon, $force) = @_;
     my $dest = "$prefix/usr/share/apps/kdm/pics/users/$user.xpm";
     unlink $dest if $force;
-    eval { commands::cp("$prefix/usr/share/icons/user-$icon-mdk.xpm", $dest) } if $icon;
+    eval { commands::cp(icon2file($icon, $prefix), $dest) } if $icon;
 }
 
 sub allocUsers {
-- 
cgit v1.2.1