summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8614d57af..db6aa1960 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -881,6 +881,10 @@ sub rpmDbOpen {
$db;
}
+sub rpmDbCleanLogs() {
+ unlink glob("$::prefix/var/lib/rpm/__db.*");
+}
+
sub rpmDbOpenForInstall() {
my $db = URPM::DB::open($::prefix, 1);
$db and log::l("opened rpmdb for writing in $::prefix");
@@ -1036,6 +1040,8 @@ sub install {
my %packages;
delete $packages->{rpmdb}; #- make sure rpmdb is closed before.
+ #- avoid potential problems with rpm db personality change
+ rpmDbCleanLogs();
return if !@$toInstall;