From 59047213291520eb69bd4565664226df801a5fa9 Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Thu, 26 Feb 2004 18:24:19 +0000
Subject: We need the PRINTER flag

---
 perl-install/pkgs.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ebd00c587..f0495b352 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -524,10 +524,13 @@ sub read_rpmsrate {
 		    my $p = packageByName($packages, $_) or next;
 		    my @m2 = map { if_(/locales-(.*)/, qq(LOCALES"$1")) } $p->requires_nosense;
 		    my @m3 = ((grep { !/^\d$/ } @m), @m2);
-		    if (member('INSTALL', @m3) || member('PRINTER', @m3)) {
+		    if (member('INSTALL', @m3)) {
 			member('NOCOPY', @m3) or push @{$packages->{needToCopy} ||= []}, $_;
 			next; #- don't need to put INSTALL flag for a package.
 		    }
+		    if (member('PRINTER', @m3)) {
+			push @{$packages->{needToCopy} ||= []}, $_;
+		    }
 		    if ($p->rate) {
 			my @m4 = $p->rflags;
 			if (@m3 > 1 || @m4 > 1) {
-- 
cgit v1.2.1