From 5ccb00978c203295c4bf726a9530c8d696a9f286 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Sep 2000 11:26:53 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 86afd29b9..d992302a8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -691,4 +691,10 @@ sub getHds {
     $ok;
 }
 
+sub log_sizes {
+    my ($o) = @_;
+    my @df = common::df($o->{prefix});
+    log::l(sprintf "Installed: %dMB(df), %dMB(rpm)", ($df[0] - $df[1]) / 1024, sum(`rpm --root $o->{prefix} -qa --queryformat "%{size}\n"`) / sqr(1024));
+}
+
 1;
-- 
cgit v1.2.1