summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/c.pm2
-rw-r--r--perl-install/ftp.pm2
-rw-r--r--perl-install/interactive.pm2
-rw-r--r--perl-install/run_program.pm4
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({}, @_) }