summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-15 17:50:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-15 17:50:21 +0000
commitbdbaca5db5f1c8bd30de9c786375fdb5185ff71f (patch)
treea85ffcb95ab8ce08d2a5d1a11c39f860fc657a5d /perl-install
parent34b8262885c1eaef51043b20b72bd3b0bc8e8dbc (diff)
downloaddrakx-backup-do-not-use-bdbaca5db5f1c8bd30de9c786375fdb5185ff71f.tar
drakx-backup-do-not-use-bdbaca5db5f1c8bd30de9c786375fdb5185ff71f.tar.gz
drakx-backup-do-not-use-bdbaca5db5f1c8bd30de9c786375fdb5185ff71f.tar.bz2
drakx-backup-do-not-use-bdbaca5db5f1c8bd30de9c786375fdb5185ff71f.tar.xz
drakx-backup-do-not-use-bdbaca5db5f1c8bd30de9c786375fdb5185ff71f.zip
fix user icons choice
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm6
1 files changed, 1 insertions, 5 deletions
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 {