From 271821c72246e100aac347331bbe3a88e3809b82 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Aug 2004 02:29:51 +0000 Subject: perl_checker compliance --- perl-install/modules/modprobe_conf.pm | 2 +- perl-install/modules/modules_conf.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm index 1bc5e478c..2db68122d 100644 --- a/perl-install/modules/modprobe_conf.pm +++ b/perl-install/modules/modprobe_conf.pm @@ -12,7 +12,7 @@ sub handled_fields { qw(alias options install remove) } sub mapping { my ($_conf, @modules) = @_; my @l = map { modules::mapping_24_26($_) } @modules; - wantarray ? @l : $l[0]; + wantarray() ? @l : $l[0]; } sub get_above { diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm index c0944010d..476fd300f 100644 --- a/perl-install/modules/modules_conf.pm +++ b/perl-install/modules/modules_conf.pm @@ -12,7 +12,7 @@ sub handled_fields { qw(alias above options probeall) } sub mapping { my ($_conf, @modules) = @_; my @l = map { modules::mapping_26_24($_) } @modules; - wantarray ? @l : $l[0]; + wantarray() ? @l : $l[0]; } sub get_above { -- cgit v1.2.1