diff options
| -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'))) { |