From a8bc84a038992ebb1c5e419bd016f594722fa1ea Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 20 Feb 2002 11:19:33 +0000
Subject: fixed INSTALL category in rpmsrate for copying file when changing cd
 (was an limitation in read_rpmsrate when a package having a category and
 INSTALL caused INSTALL to be dropped).

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

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f01824732..0389f4a70 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -160,7 +160,10 @@ sub setup_postinstall_rpms($$) {
     my %toCopy;
     #- compute closure of package that may be copied, use INSTALL category
     #- in rpmsrate.
-    pkgs::setSelectedFromCompssList($packages, { INSTALL => 1 }, 0, 0, \%toCopy);
+    foreach (@{$packages->{needToCopy} || []}) {
+	my $p = pkgs::packageByName($packages, $_);
+	pkgs::selectPackage($packages, $p, 0, \%toCopy);
+    }
 
     my @toCopy = grep { $_ && pkgs::packageFlagSelected($_) == 0 } map { pkgs::packageByName($packages, $_) } keys %toCopy;
 
-- 
cgit v1.2.1