diff options
| author | Yves Orton <demerphq@gmail.com> | 2008-01-06 21:43:24 +0000 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2008-01-06 21:43:24 +0000 |
| commit | f84167b37281b9fdf1ae6a39e5b09c601c781ffa (patch) | |
| tree | 4e41249745b7f932ad338e94a3d63b048d590384 /lib | |
| parent | b7c9370f5c2b1d5f577fed166c849b8a86ced93d (diff) | |
| download | perl-f84167b37281b9fdf1ae6a39e5b09c601c781ffa.tar.gz | |
Silence new warning grep in void context warning in various modules and test files, also silence a warning that came from a previous 'dev' version number bump.
p4raw-id: //depot/perl@32883
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CGI.pm | 8 | ||||
| -rw-r--r-- | lib/ExtUtils/Embed.pm | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 1 |
3 files changed, 7 insertions, 4 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index 8ac257a212..6d5ddc9be1 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -19,7 +19,9 @@ use Carp 'croak'; # http://stein.cshl.org/WWW/software/CGI/ $CGI::revision = '$Id: CGI.pm,v 1.240 2007/11/30 18:58:27 lstein Exp $'; -$CGI::VERSION='3.33_01'; +$CGI::VERSION='3.33_02'; +$CGI::VERSION=eval $CGI::VERSION; + # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES. # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING. @@ -3292,10 +3294,10 @@ sub previous_or_default { if (!$override && ($self->{'.fieldnames'}->{$name} || defined($self->param($name)) ) ) { - grep($selected{$_}++,$self->param($name)); + $selected{$_}++ for $self->param($name); } elsif (defined($defaults) && ref($defaults) && (ref($defaults) eq 'ARRAY')) { - grep($selected{$_}++,@{$defaults}); + $selected{$_}++ for @{$defaults}; } else { $selected{$defaults}++ if defined($defaults); } diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index dc6d5e75d6..619b134220 100644 --- a/lib/ExtUtils/Embed.pm +++ b/lib/ExtUtils/Embed.pm @@ -281,7 +281,7 @@ sub canon { s:^(lib|ext)/(auto/)?::; s:/\w+\.\w+$::; } - grep(s:/:$as:, @ext) if ($as ne '/'); + map(s:/:$as:, @ext) if ($as ne '/'); @ext; } diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 9a8e0e8525..45507271f3 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -19,6 +19,7 @@ use vars qw($VERSION @ISA use ExtUtils::MakeMaker qw($Verbose neatvalue); $VERSION = '6.42_01'; +$VERSION = eval $VERSION; require ExtUtils::MM_Any; @ISA = qw(ExtUtils::MM_Any); |