diff options
| author | ville <ville@localhost> | 2009-11-28 21:52:30 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-11-28 21:52:30 +0000 |
| commit | 000c8e75dab17fcd4dba2a23f32e372624cc3fe5 (patch) | |
| tree | 65328ef365fb2fc3c1eb5c5bf375c92d3868a0d4 | |
| parent | 0415fea111a524b65c9dc23b5e59b987438bcf9f (diff) | |
| download | markup-validator-000c8e75dab17fcd4dba2a23f32e372624cc3fe5.zip markup-validator-000c8e75dab17fcd4dba2a23f32e372624cc3fe5.tar.gz markup-validator-000c8e75dab17fcd4dba2a23f32e372624cc3fe5.tar.bz2 | |
Avoid modifying global %ENV to fix a "$ENV" should be assigned as "local" issue flagged by perlcritic.
| -rwxr-xr-x | httpd/cgi-bin/check | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 31180a6..479a82a 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.736 2009-11-28 21:44:43 ville Exp $ +# $Id: check,v 1.737 2009-11-28 21:52:30 ville Exp $ # # We need Perl 5.8.0+. @@ -99,11 +99,10 @@ use constant IS_MODPERL2 => # (such as mod_perl); so let's do the globals, eg. read config, here. BEGIN { + my $base = $ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'; + # Launder data for -T; -AutoLaunder doesn't catch this one. - if (exists $ENV{W3C_VALIDATOR_HOME}) { - $ENV{W3C_VALIDATOR_HOME} =~ /^(.*)$/; - $ENV{W3C_VALIDATOR_HOME} = $1; - } + $base = $1 if ($base =~ /^(.*)$/); # # Read Config Files. @@ -122,8 +121,7 @@ BEGIN { -DefaultConfig => { Protocols => {Allow => 'http,https'}, Paths => { - Base => - ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'), + Base => $base, Cache => '', }, External => {HTML5 => FALSE,}, @@ -201,7 +199,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.736 $; + $VERSION = q$Revision: 1.737 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # |