summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-28 17:52:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-28 17:52:25 +0000
commit62d97a61f7ac3d2889cc925bbf2fed71c440bf49 (patch)
tree658b52912f995c30a08f982c729b29b793fd924f /perl-install/pkgs.pm
parentf993948d20464e09233c8e8342f8af9591f5b2af (diff)
downloaddrakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar
drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.gz
drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.bz2
drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.xz
drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm7
1 files changed, 5 insertions, 2 deletions
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+)/) {