summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-11 14:47:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-11 14:47:40 +0000
commit29f26f9ebe878edd8e1c4f1e8373063b554e25f1 (patch)
tree91a7c9c073118a8cb034fd08c07b25f27d538161 /perl-install
parente270bd22bfdcfb362615aa6f7ef16decda04c99e (diff)
downloaddrakx-29f26f9ebe878edd8e1c4f1e8373063b554e25f1.tar
drakx-29f26f9ebe878edd8e1c4f1e8373063b554e25f1.tar.gz
drakx-29f26f9ebe878edd8e1c4f1e8373063b554e25f1.tar.bz2
drakx-29f26f9ebe878edd8e1c4f1e8373063b554e25f1.tar.xz
drakx-29f26f9ebe878edd8e1c4f1e8373063b554e25f1.zip
relooking
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/share/po/i18n_compssUsers7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
index 1d0f54b19..49ca5d6f4 100644
--- a/perl-install/share/po/i18n_compssUsers
+++ b/perl-install/share/po/i18n_compssUsers
@@ -5,7 +5,7 @@ use common ":common";
sub get {
my ($meta_class) = @_;
- my %compssUsersDescr;
+ my @l;
local *F;
open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class";
@@ -17,13 +17,12 @@ sub get {
/^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2;
/^(.*?)\s*\[path=(.*?)\](.*)/ and $_ = "$1$3", $path = $2;
/^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
- $compssUsersDescr{$_} = $descr;
- $compssUsersDescr{$descr} = $path;
+ push @l, $_, $descr, $path;
}
}
close F;
- %compssUsersDescr;
+ @l;
}
foreach (uniq(get(''), get('.desktop'))) {