- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 16 Dec 2009 18:56:46 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv28522/bin
Modified Files:
checklink
Log Message:
Fix operator mismatches flagged by perlcritic.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.172
retrieving revision 4.173
diff -u -d -r4.172 -r4.173
--- checklink 16 Dec 2009 18:52:21 -0000 4.172
+++ checklink 16 Dec 2009 18:56:44 -0000 4.173
@@ -2019,7 +2019,7 @@
if ($match) { next; }
my $c = $prev->code();
- if ($Opts{Suppress_Temp_Redirects} && (($c eq 307) || ($c eq 302))) {
+ if ($Opts{Suppress_Temp_Redirects} && ($c == 307 || $c == 302)) {
next;
}
@@ -2209,10 +2209,10 @@
if (($u.'/') eq $redirects{$u}) {
$whattodo = 'The link is missing a trailing slash, and caused a redirect. Adding the trailing slash would speed up browsing.';
}
- elsif (($c eq 307) || ($c eq 302)) {
+ elsif ($c == 307 || $c == 302) {
$whattodo = 'This is a temporary redirect. Update the link if you believe it makes sense, or leave it as is.';
}
- elsif ($c eq 301) {
+ elsif ($c == 301) {
$whattodo = 'This is a permanent redirect. The link should be updated.';
}
}
Received on Wednesday, 16 December 2009 18:56:51 UTC