validator/httpd/cgi-bin check,1.738,1.739

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv2156/httpd/cgi-bin

Modified Files:
	check 
Log Message:
Fix "Capture variable used outside conditional" issue flagged by perlcritic.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.738
retrieving revision 1.739
diff -u -d -r1.738 -r1.739
--- check	28 Nov 2009 21:55:25 -0000	1.738
+++ check	29 Nov 2009 19:16:15 -0000	1.739
@@ -98,7 +98,9 @@
     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.

Received on Sunday, 29 November 2009 19:16:19 UTC