diff options
| author | ville <ville@localhost> | 2009-11-29 19:16:15 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-11-29 19:16:15 +0000 |
| commit | 58508db74d62b486fa5707c88c7e6979f4a3791a (patch) | |
| tree | a8060e16f89ed8d11391559d15915f0c277a7695 | |
| parent | fc0204cb58283027faed9fc8359854278d1f24ab (diff) | |
| download | markup-validator-58508db74d62b486fa5707c88c7e6979f4a3791a.zip markup-validator-58508db74d62b486fa5707c88c7e6979f4a3791a.tar.gz markup-validator-58508db74d62b486fa5707c88c7e6979f4a3791a.tar.bz2 | |
Fix "Capture variable used outside conditional" issue flagged by perlcritic.
| -rwxr-xr-x | httpd/cgi-bin/check | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index b362672..484f643 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.738 2009-11-28 21:55:25 ville Exp $ +# $Id: check,v 1.739 2009-11-29 19:16:15 ville Exp $ # # We need Perl 5.8.0+. @@ -98,7 +98,9 @@ BEGIN { my $base = $ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'; # Launder data for -T; -AutoLaunder doesn't catch this one. - $base = $1 if ($base =~ /^(.*)$/); + if ($base =~ /^(.*)$/) { + $base = $1; + } # # Read Config Files. @@ -195,7 +197,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.738 $; + $VERSION = q$Revision: 1.739 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # |