1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 6d5a36c30..71f4cee03 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -21,13 +21,13 @@ sub get_stdout {
     my ($name, @args) = @_;
     my @r;
     run($name, '>', \@r, @args) or return;
-    wantarray ? @r : join('', @r);
+    wantarray() ? @r : join('', @r);
 }
 sub rooted_get_stdout {
     my ($root, $name, @args) = @_;
     my @r;
     rooted($root, $name, '>', \@r, @args) or return;
-    wantarray ? @r : join('', @r);
+    wantarray() ? @r : join('', @r);
 }
 
 sub run { raw({}, @_) }