diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:00 +0000 |
| commit | 7f6889cc228cfdfe02cf4db674c560643aa6a71d (patch) | |
| tree | 1758e645f4895e3a5a2b56df1325371214dda12a | |
| parent | f10f245015f67547e706f07f1e9340ccc72f313b (diff) | |
| download | drakx-backup-do-not-use-7f6889cc228cfdfe02cf4db674c560643aa6a71d.tar drakx-backup-do-not-use-7f6889cc228cfdfe02cf4db674c560643aa6a71d.tar.gz drakx-backup-do-not-use-7f6889cc228cfdfe02cf4db674c560643aa6a71d.tar.bz2 drakx-backup-do-not-use-7f6889cc228cfdfe02cf4db674c560643aa6a71d.tar.xz drakx-backup-do-not-use-7f6889cc228cfdfe02cf4db674c560643aa6a71d.zip | |
s/wantarray/wantarray()/
| -rw-r--r-- | perl-install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/c.pm | 2 | ||||
| -rw-r--r-- | perl-install/ftp.pm | 2 | ||||
| -rw-r--r-- | perl-install/interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/run_program.pm | 4 |
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({}, @_) } |