From 9b1bd20ab5c18ff1a0cf1d1a7604a46453beec1b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 2 Sep 2003 12:38:20 +0000 Subject: fixed XFree86-75dpi-fonts not available (seems like a problem with length of rpmsrate computation, strange as it fails now and not before). --- perl-install/pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 81eefbbf1..d58ce2481 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -219,12 +219,12 @@ sub packageRequest { sub packageCallbackChoices { my ($urpm, $_db, $state, $choices) = @_; - if (my $prefer = find { exists $preferred{$_->name} } @$choices) { + if (my $prefer = find { $_->arch ne 'src' && exists $preferred{$_->name} } @$choices) { $prefer; } else { my @l = grep { #- or if a kernel has to be chosen, chose the basic one. - $_->name =~ /kernel-\d/ and return $_; + $_->arch ne 'src' && $_->name =~ /kernel-\d/ and return $_; #- or even if a package requires a specific locales which #- is already selected. -- cgit v1.2.1