- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 16 Dec 2009 18:52:23 +0000
- To: www-validator-cvs@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 UTC