From 7951c0e02df7a277bb5336df934c0349c74a7f41 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 2 Sep 2005 09:58:18 +0000
Subject: opening rpm db in selectPackage(), so remove some rpmDbOpen()

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 92b07e284..f35ea7e30 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -298,6 +298,8 @@ sub selectPackage {
     #- is only used for unselection, not selection)
     my $state = $packages->{state} ||= {};
 
+    $packages->{rpmdb} ||= rpmDbOpen();
+
     my @l = $packages->resolve_requested($packages->{rpmdb}, $state, packageRequest($packages, $pkg) || {},
 					 callback_choices => \&packageCallbackChoices);
 
-- 
cgit v1.2.1