From 1f626fa1e14be15cf257b0138233ed53dc3ddf56 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 28 Sep 2007 14:18:43 +0000
Subject: - log_sizes: cleanup __db* files

---
 perl-install/install/NEWS     | 3 +--
 perl-install/install/media.pm | 1 +
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 619202a11..a79246029 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,4 @@
-Version 10.4.219 - 28 September 2007, by Pascal "Pixel" Rigaux
-
+- log_sizes: cleanup __db* files
 - ensure the rpmdb is closed
 
 Version 10.4.218 - 28 September 2007, by Pascal "Pixel" Rigaux
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 85dcaaf66..d889f9141 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -1011,6 +1011,7 @@ sub log_sizes() {
     log::l(sprintf "Installed: %dMB(df), %dMB(rpm)",
 	   ($df[0] - $df[1]) / 1024,
 	   sum(run_program::rooted_get_stdout($::prefix, 'rpm', '-qa', '--queryformat', '%{size}\n')) / 1024 / 1024) if -x "$::prefix/bin/rpm";
+    install::pkgs::clean_rpmdb_shared_regions();
 }
 
 1;
-- 
cgit v1.2.1