s/wantarray/wantarray()/

5 files changed, 6 insertions, 6 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e183f46f1..d5033bbe8 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1111,7 +1111,7 @@ sub running_window_manager {
 
     foreach (@window_managers) {
 	my @pids = fuzzy_pidofs(qr/\b$_\b/) or next;
-	return wantarray ? ($_, @pids) : $_;
+	return wantarray() ? ($_, @pids) : $_;
     }
     undef;
 }
diff --git a/perl-install/c.pm b/perl-install/c.pm
index aa03b9b1e..0d5fe8f00 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -13,7 +13,7 @@ sub AUTOLOAD {
 	  die("can't find function $AUTOLOAD\n" . backtrace()) :
 	  die($err);	
     }
-    wantarray ? @l : $l[0];
+    wantarray() ? @l : $l[0];
 }
 
 1;
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 5bf822115..0af478004 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -45,7 +45,7 @@ sub new {
 	$hosts{"$host$prefix"} = \@l;
 	@l;
     } };
-    wantarray ? @l : $l[0];
+    wantarray() ? @l : $l[0];
 }
 
 sub getFile {
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 076b11f7d..e423d7eff 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -233,7 +233,7 @@ sub ask_many_from_list {
 	my $h = $_;
 	[ grep { ${$h->{e}{$_}{val}} } @{$h->{list}} ];
     } @l;
-    wantarray ? @l : $l[0];
+    wantarray() ? @l : $l[0];
 }
 
 sub ask_from_entry {
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({}, @_) }