diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-22 20:07:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-22 20:07:36 +0000 |
commit | e1922243bd426cc4af43aa806027d3c8e1c2a810 (patch) | |
tree | a86284d78d0b3f165d5b224d4cfebcd5a899d55d /perl-install/pkgs.pm | |
parent | 780e03f8220980809fa187aa442978dd2ab7cc33 (diff) | |
download | drakx-backup-do-not-use-e1922243bd426cc4af43aa806027d3c8e1c2a810.tar drakx-backup-do-not-use-e1922243bd426cc4af43aa806027d3c8e1c2a810.tar.gz drakx-backup-do-not-use-e1922243bd426cc4af43aa806027d3c8e1c2a810.tar.bz2 drakx-backup-do-not-use-e1922243bd426cc4af43aa806027d3c8e1c2a810.tar.xz drakx-backup-do-not-use-e1922243bd426cc4af43aa806027d3c8e1c2a810.zip |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r-- | perl-install/pkgs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index e22eed6de..2596e8c74 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -30,7 +30,7 @@ my %by_lang = ( 'zh_TW.Big5' => [ 'rxvt-CLE', 'fonts-ttf-big5' ], ); -my @prefered = qw(perl-GTK); +my @preferred = qw(perl-GTK postfix); my $A = 20471; my $B = 16258; @@ -50,7 +50,7 @@ sub allpackages { sub select($$;$) { my ($packages, $p, $base) = @_; - my %prefered; @prefered{@prefered} = (); + my %preferred; @preferred{@preferred} = (); my ($n, $v); unless ($p->{installed}) { #- if the same or better version is installed, do not select. $p->{base} ||= $base; @@ -64,7 +64,7 @@ sub select($$;$) { my $p = Package($packages, $_); $i ||= $p; $p && $p->{selected} and $i = $p, last; - $p && exists $prefered{$_} and $i = $p; + $p && exists $preferred{$_} and $i = $p; } } $i->{base} ||= $base; |