summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-04 10:56:39 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-04 10:56:39 +0000
commita66e06b7fb07e17e1bc17e3bb16a399e6b9e3096 (patch)
tree19dfb118b1649d54f9d1658f2c26357992a78683 /perl-install/install/pkgs.pm
parentdf19739902144bcbcd2e8037f9f1ca71a653a485 (diff)
downloaddrakx-backup-do-not-use-a66e06b7fb07e17e1bc17e3bb16a399e6b9e3096.tar
drakx-backup-do-not-use-a66e06b7fb07e17e1bc17e3bb16a399e6b9e3096.tar.gz
drakx-backup-do-not-use-a66e06b7fb07e17e1bc17e3bb16a399e6b9e3096.tar.bz2
drakx-backup-do-not-use-a66e06b7fb07e17e1bc17e3bb16a399e6b9e3096.tar.xz
drakx-backup-do-not-use-a66e06b7fb07e17e1bc17e3bb16a399e6b9e3096.zip
(_install_raw::close_helper) make sure to free package header so that
rpmdb can be closed (else we exhaust the max number of opened fd)
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 897cd8fa1..d7d88ed90 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -746,6 +746,8 @@ sub _install_raw {
$check_installed or log::l($pkg->name . " not installed, " . URPM::rpmErrorString());
$check_installed and $close->($pkg);
+ # prevent rpmdb to remain open:
+ $pkg->free_header;
}, inst => $callback,
trans => $callback,
# FIXME: implement already_installed_or_not_installable