From 137adff6387ef4281269d535cd9ee593d720a212 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Jul 2002 18:58:49 +0000
Subject: use run_program::rooted_get_stdout

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ea78b14aa..34d4e9b0c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1050,7 +1050,7 @@ sub log_sizes {
     my @df = MDK::Common::System::df($o->{prefix});
     log::l(sprintf "Installed: %s(df), %s(rpm)",
 	   formatXiB($df[0] - $df[1], 1024),
-	   formatXiB(sum(`$ENV{LD_LOADER} rpm --root $o->{prefix}/ -qa --queryformat "%{size}\n"`))) if -x "$o->{prefix}/bin/rpm";
+	   formatXiB(sum(run_program::rooted_get_stdout($o->{prefix}, 'rpm', '-qa', '--queryformat', '%{size}\n')))) if -x "$o->{prefix}/bin/rpm";
 }
 
 sub copy_advertising {
-- 
cgit v1.2.1