summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm11
1 files changed, 0 insertions, 11 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 9a24a6f40..eabba9f16 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -558,8 +558,6 @@ sub _openInstallLog() {
sub rpmDbOpen {
my ($b_rebuild_if_needed) = @_;
- clean_rpmdb_shared_regions();
-
my $need_rebuild = $b_rebuild_if_needed && !URPM::DB::verify($::prefix);
if ($need_rebuild) {
@@ -594,12 +592,7 @@ sub rpmDbOpen {
$db;
}
-sub clean_rpmdb_shared_regions() {
- unlink glob("$::prefix/var/lib/rpm/__db.*");
-}
-
sub open_rpm_db_rw() {
- clean_rpmdb_shared_regions();
my $db = URPM::DB::open($::prefix, 1);
$db and log::l("opened rpmdb for writing in $::prefix");
$db;
@@ -682,8 +675,6 @@ sub install {
my %packages;
delete $packages->{rpmdb}; #- make sure rpmdb is closed before.
- #- avoid potential problems with rpm db personality change
- clean_rpmdb_shared_regions();
return if !@$toInstall;
@@ -723,8 +714,6 @@ sub install {
# prevent urpmi from trying to install them again (CHECKME: maybe uneeded):
$packages->{state} = {};
- clean_rpmdb_shared_regions(); #- workaround librpm which is buggy when using librpm rooted and the just installed rooted library
-
fs::loopback::save_boot($loop_boot);
}