diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 12:50:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 12:50:29 +0000 |
| commit | 3bc20c1ea1a306475ea8eab8e8e1973625ca785f (patch) | |
| tree | 5cecbffa4160d47c8de483e723474ec668c0bcc6 /perl-install/pkgs.pm | |
| parent | 42ded0f5b50145273e019818e4e3eb002667aff8 (diff) | |
| download | drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.gz drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.bz2 drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.xz drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3409956c3..1418ac247 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -30,6 +30,7 @@ my %by_lang = ( 'zh_TW.Big5' => [ 'rxvt-CLE' ], ); +my @prefered = qw(perl-GTK); my $A = 20471; my $B = 16258; @@ -49,6 +50,7 @@ sub allpackages { sub select($$;$) { my ($packages, $p, $base) = @_; + my %prefered; @prefered{@prefered} = (); my ($n, $v); unless ($p->{installed}) { #- if the same or better version is installed, do not select. $p->{base} ||= $base; @@ -59,8 +61,10 @@ sub select($$;$) { my $i = $packages->{$n}; if (!$i && $n =~ /\|/) { foreach (split '\|', $n) { - $i = Package($packages, $_); - last if $i && $i->{selected}; + my $p = Package($packages, $_); + $i ||= $p; + $p && $p->{selected} and $i = $p, last; + $p && exists $prefered{$_} and $i = $p; } } $i->{base} ||= $base; @@ -251,7 +255,7 @@ sub readCompssList($$$) { sub readCompssUsers { my ($packages, $compss) = @_; - my (%compssUsers, $l); + my (%compssUsers, @sorted, $l); my $f = install_any::getFile("compssUsers") or die "can't find compssUsers"; foreach (<$f>) { @@ -259,6 +263,7 @@ sub readCompssUsers { s/#.*//; if (/^(\S.*)/) { + push @sorted, $1; $compssUsers{$1} = $l = []; } elsif (/\s+\+(.*)/) { push @$l, $packages->{$1} || do { log::l("unknown package $1 (in compssUsers)"); next }; @@ -269,7 +274,7 @@ sub readCompssUsers { push @$l, @{ category2packages($p) }; } } - \%compssUsers; + \%compssUsers, \@sorted; } #- sub isLangSensitive($$) { |