From c9f1865568c9d5f4c1696efd30c4b5f6519a4939 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 1 Mar 2002 14:11:02 +0000
Subject: added pixel comments for handling INSTALL category and NOCOPY
 handling.

---
 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 2d0ad08e4..1398ad94f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -672,8 +672,8 @@ sub read_rpmsrate {
 		      map { packageById($packages, $_) } packageDepsId($p);
 
 		    my @m3 = ((grep { !/^\d$/ } @m), @m2);
-		    if (@m3 == 1 && $m3[0] eq 'INSTALL') {
-			$rate > 1 and push @{$packages->{needToCopy} ||= []}, $_;
+		    if (member('INSTALL', @m3)) {
+			member('NOCOPY', @m3) or push @{$packages->{needToCopy} ||= []}, $_;
 			next; #- don't need to put INSTALL flag for a package.
 		    }
 		    if (packageRate($p)) {
-- 
cgit v1.2.1