summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-24 03:32:26 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-06-24 03:32:26 +0000
commitdfab0caa5b774724d9358a44c36fc4b0d95faa2d (patch)
tree2ed6395c126afec981353e814d3ff42fc4410b62 /perl-install
parent67f38cfed5f0a4b6a0a628c02b3f0adea4def056 (diff)
downloaddrakx-dfab0caa5b774724d9358a44c36fc4b0d95faa2d.tar
drakx-dfab0caa5b774724d9358a44c36fc4b0d95faa2d.tar.gz
drakx-dfab0caa5b774724d9358a44c36fc4b0d95faa2d.tar.bz2
drakx-dfab0caa5b774724d9358a44c36fc4b0d95faa2d.tar.xz
drakx-dfab0caa5b774724d9358a44c36fc4b0d95faa2d.zip
Remove DB logs before doing an install.
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;