From 7bde69c12ac9d356b051d0a63ef650092860a3d8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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