diff options
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/pkgs.pm | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 482ed1e56..711bdc69c 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- make sure to free package header so that rpmdb can be closed (else + we exhaust the max number of opened fd) - really set urpmi in automatic mode for non-interactive installs (and not vice-versa) - use package summary translations once 'mdv-rpm-summary' is installed 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 |