From 62d97a61f7ac3d2889cc925bbf2fed71c440bf49 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Sep 2000 17:52:25 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 846f4330e..59de3f42f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -683,8 +683,11 @@ sub readCompssUsers {
 
 	if (/^(\S.*)/) {
 	    &$map;
-	    /^(.*?)\s*\[icon=(.*?)\]/  and $_ = $1, $compssUsersIcons{$_} = $2;
-	    /^(.*?)\s*\[descr=(.*?)\]/ and $_ = $1, $compssUsersDescr{$_} = $2;
+	    my ($icon, $descr);
+	    /^(.*?)\s*\[icon=(.*?)\](.*)/  and $_ = "$1$3", $icon  = $2;
+	    /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
+	    $compssUsersIcons{$_} = $icon; 
+	    $compssUsersDescr{$_} = $descr; 
 	    push @sorted, $_;
 	    $compssUsers{$_} = $l = [];
 	} elsif (/\s+\+(\S+)/) {
-- 
cgit v1.2.1