summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:28:38 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:28:38 +0000
commit00669b95f6856a63fdafeadecef4ab0023d31d0d (patch)
tree6423cd644d670aeb4b73cc9baac5bd726a7c4134 /perl-install
parent3156d63f02bee6e215b79cc2ec929b38bbd56b04 (diff)
downloaddrakx-00669b95f6856a63fdafeadecef4ab0023d31d0d.tar
drakx-00669b95f6856a63fdafeadecef4ab0023d31d0d.tar.gz
drakx-00669b95f6856a63fdafeadecef4ab0023d31d0d.tar.bz2
drakx-00669b95f6856a63fdafeadecef4ab0023d31d0d.tar.xz
drakx-00669b95f6856a63fdafeadecef4ab0023d31d0d.zip
(get_stdout_raw) introduce it
needed for next commit
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/run_program.pm8
1 files changed, 8 insertions, 0 deletions
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;