diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 17:52:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 17:52:25 +0000 |
| commit | 62d97a61f7ac3d2889cc925bbf2fed71c440bf49 (patch) | |
| tree | 658b52912f995c30a08f982c729b29b793fd924f /perl-install/pkgs.pm | |
| parent | f993948d20464e09233c8e8342f8af9591f5b2af (diff) | |
| download | drakx-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.pm | 7 |
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+)/) { |