summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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'))) {