From 00669b95f6856a63fdafeadecef4ab0023d31d0d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:28:38 +0000
Subject: (get_stdout_raw) introduce it

needed for next commit
---
 perl-install/run_program.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 7c0ba92c7..c4d195c45 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -32,6 +32,14 @@ sub get_stdout {
     run($name, '>', \@r, @args) or return;
     wantarray() ? @r : join('', @r);
 }
+
+sub get_stdout_raw {
+    my ($options, $name, @args) = @_;
+    my @r;
+    raw($options, $name, '>', \@r, @args) or return;
+    wantarray() ? @r : join('', @r);
+}
+
 sub rooted_get_stdout {
     my ($root, $name, @args) = @_;
     my @r;
-- 
cgit v1.2.1