summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-02 09:58:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-02 09:58:18 +0000
commit7951c0e02df7a277bb5336df934c0349c74a7f41 (patch)
treef3caba07646292ea11815359cd471848f6018ebb /perl-install/pkgs.pm
parent39825fad12d081797d4b06ae27e59709cba61afd (diff)
downloaddrakx-backup-do-not-use-7951c0e02df7a277bb5336df934c0349c74a7f41.tar
drakx-backup-do-not-use-7951c0e02df7a277bb5336df934c0349c74a7f41.tar.gz
drakx-backup-do-not-use-7951c0e02df7a277bb5336df934c0349c74a7f41.tar.bz2
drakx-backup-do-not-use-7951c0e02df7a277bb5336df934c0349c74a7f41.tar.xz
drakx-backup-do-not-use-7951c0e02df7a277bb5336df934c0349c74a7f41.zip
opening rpm db in selectPackage(), so remove some rpmDbOpen()
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 2 insertions, 0 deletions
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);