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

perl/modules/W3C/LogValidator/lib/W3C/LogValidator LinkChecker.pm,1.3,1.4

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Mon, 19 Dec 2005 06:43:56 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1EoEkW-0001rh-PN@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv6924

Modified Files:
	LinkChecker.pm 
Log Message:
patch courtesy of Slaven Rezic (@cpan) 
fixing https://rt.cpan.org/NoAuth/Bug.html?id=16562
(Extend search path for linkcheck script)



Index: LinkChecker.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/LinkChecker.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- LinkChecker.pm	9 Sep 2005 06:33:11 -0000	1.3
+++ LinkChecker.pm	19 Dec 2005 06:43:54 -0000	1.4
@@ -9,6 +9,7 @@
 package W3C::LogValidator::LinkChecker;
 use strict;
 use warnings;
+use Config;
 
 
 require Exporter;
@@ -74,7 +75,8 @@
     }
     }
     if ($found == 0) {
-        foreach ('/usr/bin/checklink', '/bin/checklink', '/usr/local/bin/checklink', './checklink'){
+        foreach ("$Config{scriptdirexp}/checklink", "$Config{binexp}/checklink",
+		 '/usr/bin/checklink', '/bin/checklink', '/usr/local/bin/checklink', './checklink'){
              $cl_path = $_;
              print "looking for checklink at: $cl_path..." if ($verbose >1);
              
Received on Monday, 19 December 2005 06:44:54 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:15 UTC