From 29f26f9ebe878edd8e1c4f1e8373063b554e25f1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Apr 2001 14:47:40 +0000
Subject: relooking

---
 perl-install/share/po/i18n_compssUsers | 7 +++----
 1 file 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'))) {
-- 
cgit v1.2.1