perl/modules/W3C/LinkChecker/bin checklink,4.147,4.148

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv1520/bin

Modified Files:
	checklink 
Log Message:
Require URI::file only in command line mode.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.147
retrieving revision 4.148
diff -u -d -r4.147 -r4.148
--- checklink	10 Feb 2009 20:56:26 -0000	4.147
+++ checklink	19 Feb 2009 19:59:12 -0000	4.148
@@ -203,7 +203,6 @@
 use Time::HiRes          qw();
 use URI             1.31 qw(); # >= 1.31 for sip: abs/rel
 use URI::Escape          qw();
-use URI::file            qw();
 # @@@ Needs also W3C::UserAgent but can't use() it here.
 
 use constant RC_ROBOTS_TXT          => -1;
@@ -450,6 +449,8 @@
   require Text::Wrap;
   Text::Wrap->import('wrap');
 
+  require URI::file;
+
   &usage(1) unless scalar(@ARGV);
 
   $Opts{_Self_URI} = 'http://validator.w3.org/checklink'; # For HTML output

Received on Thursday, 19 February 2009 19:59:27 UTC