W3C home > Mailing lists > Public > www-validator-cvs@w3.org > December 2009

perl/modules/W3C/LinkChecker/bin checklink,4.171,4.172

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Wed, 16 Dec 2009 18:52:23 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NKyz1-00076W-Kb@lionel-hutz.w3.org>
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv27289/bin

Modified Files:
	checklink 
Log Message:
Fix indirect call syntax issues flagged by perlcritic.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.171
retrieving revision 4.172
diff -u -d -r4.171 -r4.172
--- checklink	3 Dec 2009 21:28:09 -0000	4.171
+++ checklink	16 Dec 2009 18:52:21 -0000	4.172
@@ -532,7 +532,7 @@
   push(@$forbidden, 'file');
   $ua->protocols_forbidden($forbidden);
 
-  my $query = new CGI;
+  my $query = CGI->new();
   # Set a few parameters in CGI mode
   $Opts{Verbose}   = 0;
   $Opts{Progress}  = 0;
@@ -1424,7 +1424,7 @@
 
   &hprintf("%s %s ", $method, $uri) if $verbose_progress;
 
-  my $request = new HTTP::Request($method, $uri);
+  my $request = HTTP::Request->new($method, $uri);
 
   $request->header('Accept-Language' => $Opts{Accept_Language})
     if $Opts{Accept_Language};
Received on Wednesday, 16 December 2009 18:52:35 GMT

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