W3C home > Mailing lists > Public > www-validator-cvs@w3.org > July 2007

perl/modules/W3C/LinkChecker/bin checklink,4.52,4.53

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sat, 28 Jul 2007 08:02:22 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IEhFm-0006dn-5z@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv25495

Modified Files:
	checklink 
Log Message:
Make the CGI object non-global.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.52
retrieving revision 4.53
diff -u -d -r4.52 -r4.53
--- checklink	9 Apr 2007 22:18:21 -0000	4.52
+++ checklink	28 Jul 2007 08:02:19 -0000	4.53
@@ -247,8 +247,6 @@
 }
 
 # Global variables
-# What is our query?
-my $query;
 # What URI's did we process? (used for recursive mode)
 my %processed;
 # Result of the HTTP query
@@ -324,7 +322,7 @@
   require CGI;
   require CGI::Carp;
   CGI::Carp->import(qw(fatalsToBrowser));
-  $query = new CGI;
+  my $query = new CGI;
   # Set a few parameters in CGI mode
   $Opts{Verbose}   = 0;
   $Opts{Progress}  = 0;
Received on Saturday, 28 July 2007 08:02:31 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:58 GMT