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

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

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Wed, 16 Dec 2009 18:56:46 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NKz3G-0007QN-PW@lionel-hutz.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 GMT

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