diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-11 14:47:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-11 14:47:40 +0000 |
| commit | 29f26f9ebe878edd8e1c4f1e8373063b554e25f1 (patch) | |
| tree | 91a7c9c073118a8cb034fd08c07b25f27d538161 /perl-install | |
| parent | e270bd22bfdcfb362615aa6f7ef16decda04c99e (diff) | |
| download | drakx-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_compssUsers | 7 |
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'))) { |