diff options
| -rw-r--r-- | perl-install/pkgs.pm | 6 |
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; |