diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-25 22:00:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-25 22:00:16 +0000 |
| commit | e38950a33c3505db7e79547622aa5946cfe88d5c (patch) | |
| tree | ecb94365673b2f74e264d0cae8467a4481aea21f /perl-install/pkgs.pm | |
| parent | 5692f13be4ba57a7f52b54a7576bd858f418dc14 (diff) | |
| download | drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.gz drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.bz2 drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.xz drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index bb1e66ba7..5f81d914d 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -663,7 +663,7 @@ sub readCompssList { sub readCompssUsers { my ($packages, $compss) = @_; - my (%compssUsers, @sorted, $l); + my (%compssUsers, %compssUsersIcons, @sorted, $l); my (%compss); foreach (@$compss) { local ($_, $a) = m|(.*)/(.*)|; @@ -672,7 +672,7 @@ sub readCompssUsers { my $map = sub { $l or return; - $_ = $packages->[0]{$_} or log::l("unknown package $1 (in compssUsers)") foreach @$l; + $_ = $packages->[0]{$_} or log::l("unknown package $_ (in compssUsers)") foreach @$l; }; my $f = install_any::getFile('Mandrake/base/compssUsers') or die "can't find compssUsers"; foreach (<$f>) { @@ -681,8 +681,9 @@ sub readCompssUsers { if (/^(\S.*)/) { &$map; - push @sorted, $1; - $compssUsers{$1} = $l = []; + /^(.*?)\s*\[icon=(.*?)\]/ and $_ = $1, $compssUsersIcons{$_} = $2; + push @sorted, $_; + $compssUsers{$_} = $l = []; } elsif (/\s+\+(\S+)/) { push @$l, $1; } elsif (/^\s+(.*?)\s*$/) { @@ -690,7 +691,7 @@ sub readCompssUsers { } } &$map; - \%compssUsers, \@sorted; + \%compssUsers, \@sorted, \%compssUsersIcons; } sub setSelectedFromCompssList { |