From d7b9582821fad5e0ff81b4abf1e39d4f779394f1 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 1 Mar 2002 14:03:28 +0000
Subject: only copy package in INSTALL category with a rate of at least 2.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 77d0492f4..2d0ad08e4 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -673,7 +673,7 @@ sub read_rpmsrate {
 
 		    my @m3 = ((grep { !/^\d$/ } @m), @m2);
 		    if (@m3 == 1 && $m3[0] eq 'INSTALL') {
-			push @{$packages->{needToCopy} ||= []}, $_;
+			$rate > 1 and push @{$packages->{needToCopy} ||= []}, $_;
 			next; #- don't need to put INSTALL flag for a package.
 		    }
 		    if (packageRate($p)) {
-- 
cgit v1.2.1