From e1922243bd426cc4af43aa806027d3c8e1c2a810 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 22 Dec 1999 20:07:36 +0000 Subject: no_comment --- perl-install/pkgs.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/pkgs.pm') 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; -- cgit v1.2.1