diff options
| author | ville <ville@localhost> | 2009-11-25 20:21:36 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-11-25 20:21:36 +0000 |
| commit | fc9a6f6f7e54965efa166211b95088ad7306f977 (patch) | |
| tree | d482f5f83c44fd2792ee5559601b2b5bba354fa5 | |
| parent | 6117bd7e49610c309203c2cf0c6afbac4b9b3f01 (diff) | |
| download | markup-validator-fc9a6f6f7e54965efa166211b95088ad7306f977.zip markup-validator-fc9a6f6f7e54965efa166211b95088ad7306f977.tar.gz markup-validator-fc9a6f6f7e54965efa166211b95088ad7306f977.tar.bz2 | |
Fix use of map in void context flagged by perlcritic.
| -rwxr-xr-x | httpd/cgi-bin/check | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 228eb46..76f4e9e 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.732 2009-11-25 19:52:47 ville Exp $ +# $Id: check,v 1.733 2009-11-25 20:21:36 ville Exp $ # # We need Perl 5.8.0+. @@ -170,10 +170,10 @@ EOF } { # Make types config indexed by FPI. - my $_types = {}; - map { $_types->{$CFG->{Types}->{$_}->{PubID}} = $CFG->{Types}->{$_} } - keys %{$CFG->{Types}}; - $CFG->{Types} = $_types; + my $types = {}; + $types->{$CFG->{Types}->{$_}->{PubID}} = $CFG->{Types}->{$_} + for keys(%{$CFG->{Types}}); + $CFG->{Types} = $types; } # @@ -201,7 +201,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.732 $; + $VERSION = q$Revision: 1.733 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # |