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/media.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install/media.pm')

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