summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-26 17:11:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-26 17:11:21 +0000
commit892bee6477c534b72ea8fbad40385fe6b2147069 (patch)
tree4dafc6fe37e2893f54fe6239288ed2561bd23793 /perl-install
parent2e83b63adaf8acfa9a25c2e169525e1c5534f437 (diff)
downloaddrakx-892bee6477c534b72ea8fbad40385fe6b2147069.tar
drakx-892bee6477c534b72ea8fbad40385fe6b2147069.tar.gz
drakx-892bee6477c534b72ea8fbad40385fe6b2147069.tar.bz2
drakx-892bee6477c534b72ea8fbad40385fe6b2147069.tar.xz
drakx-892bee6477c534b72ea8fbad40385fe6b2147069.zip
(rooted_get_stdout): handle one line return using wantarray
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/run_program.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index a50f31f0a..9d93fd315 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -20,7 +20,7 @@ sub rooted_get_stdout {
my ($root, $name, @args) = @_;
my @r;
rooted($root, $name, '>', \@r, @args) or return;
- @r;
+ wantarray ? @r : join('', @r);
}
sub run { rooted('', @_) }