diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 17:50:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 17:50:21 +0000 |
| commit | bdbaca5db5f1c8bd30de9c786375fdb5185ff71f (patch) | |
| tree | a85ffcb95ab8ce08d2a5d1a11c39f860fc657a5d /perl-install | |
| parent | 34b8262885c1eaef51043b20b72bd3b0bc8e8dbc (diff) | |
| download | drakx-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.pm | 6 |
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 { |