From bdbaca5db5f1c8bd30de9c786375fdb5185ff71f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 15 Sep 2001 17:50:21 +0000
Subject: fix user icons choice

---
 perl-install/any.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 55391995c..d109688e7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -25,10 +25,6 @@ sub facesdir {
     my ($prefix) = @_;
     "$prefix/usr/share/mdk/faces/";
 }
-sub face2xpm {
-    my ($face, $prefix) = @_;
-    facesdir($prefix) . $face . ".xpm";
-}
 sub face2png {
     my ($face, $prefix) = @_;
     facesdir($prefix) . $face . ".png";
@@ -37,7 +33,7 @@ sub facesnames {
     my ($prefix) = @_;
     my $dir = facesdir($prefix);
     my @l = grep { /^[A-Z]/ } all($dir);
-    grep { -e "$dir/$_.png" } map { /(.*)\.xpm/ } (@l ? @l : all($dir));
+    map { if_(/(.*)\.png/, $1) } (@l ? @l : all($dir));
 }
 
 sub addKdmIcon {
-- 
cgit v1.2.1