From 7bde69c12ac9d356b051d0a63ef650092860a3d8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 21 Jul 2002 21:25:46 +0000
Subject: workaround "traverse_tag" pb in Resolve.pm resolve_requested (is it
 ok??)

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 50bb10e62..4b701f5a8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -160,10 +160,12 @@ sub setup_postinstall_rpms($$) {
     my %toCopy;
     #- compute closure of package that may be copied, use INSTALL category
     #- in rpmsrate.
+    $packages->{rpmdb} ||= pkgs::rpmDbOpen($prefix);
     foreach (@{$packages->{needToCopy} || []}) {
 	my $p = pkgs::packageByName($packages, $_) or next;
 	pkgs::selectPackage($packages, $p, 0, \%toCopy);
     }
+    delete $packages->{rpmdb};
 
     my @toCopy = grep { $_ && !$_->flag_selected } map { $packages->{depslist}[$_] } keys %toCopy;
 
-- 
cgit v1.2.1