From 450d7d82c10d65d95e67936177a531a0663d6062 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 26 Aug 2005 11:08:58 +0000 Subject: more precise log_size during install --- perl-install/install_any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 49fa5c394..b5e6d7526 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1795,9 +1795,9 @@ sub media_browser { sub log_sizes { my ($o) = @_; my @df = MDK::Common::System::df($o->{prefix}); - log::l(sprintf "Installed: %s(df), %s(rpm)", - formatXiB($df[0] - $df[1], 1024), - formatXiB(sum(run_program::rooted_get_stdout($o->{prefix}, 'rpm', '-qa', '--queryformat', '%{size}\n')))) if -x "$o->{prefix}/bin/rpm"; + log::l(sprintf "Installed: %dMB(df), %dMB(rpm)", + ($df[0] - $df[1]) / 1024, + sum(run_program::rooted_get_stdout($o->{prefix}, 'rpm', '-qa', '--queryformat', '%{size}\n')) / 1024 / 1024) if -x "$o->{prefix}/bin/rpm"; } sub X_options_from_o { -- cgit v1.2.1