From 9b1bd20ab5c18ff1a0cf1d1a7604a46453beec1b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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(-)

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