diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:28:38 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:28:38 +0000 |
commit | 5a3d221209e027b0150382b61c9f5e76c9d551f4 (patch) | |
tree | 6423cd644d670aeb4b73cc9baac5bd726a7c4134 | |
parent | c07402ad00ac3909a1b50e326694c47a853d84ac (diff) | |
download | drakx-backup-do-not-use-5a3d221209e027b0150382b61c9f5e76c9d551f4.tar drakx-backup-do-not-use-5a3d221209e027b0150382b61c9f5e76c9d551f4.tar.gz drakx-backup-do-not-use-5a3d221209e027b0150382b61c9f5e76c9d551f4.tar.bz2 drakx-backup-do-not-use-5a3d221209e027b0150382b61c9f5e76c9d551f4.tar.xz drakx-backup-do-not-use-5a3d221209e027b0150382b61c9f5e76c9d551f4.zip |
(get_stdout_raw) introduce it
needed for next commit
-rw-r--r-- | perl-install/run_program.pm | 8 |
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; |