perl/modules/W3C/LinkChecker/bin checklink,4.102,4.103

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

Modified Files:
	checklink 
Log Message:
Drop old URI workarounds, require >= 1.31.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.102
retrieving revision 4.103
diff -u -d -r4.102 -r4.103
--- checklink	21 Apr 2008 08:00:30 -0000	4.102
+++ checklink	1 May 2008 07:56:13 -0000	4.103
@@ -183,7 +183,7 @@
 use HTTP::Request        qw();
 use HTTP::Response  1.50 qw(); # >= 1.50 for decoded_content()
 use Time::HiRes          qw();
-use URI                  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.
@@ -900,10 +900,6 @@
     my $link_uri = URI->new($link);
     my $abs_link_uri = URI->new_abs($link_uri, $base);
 
-    # Work around a bug in URI::sip(s) (URI 1.22 - 1.30).
-    $abs_link_uri = $link_uri
-      if (!defined($abs_link_uri) && $link_uri->scheme() =~ /^sips?$/);
-
     if ($Opts{Masquerade}) {
       if ($abs_link_uri =~ m|^\Q$Opts{Masquerade_From}\E|) {
         printf("processing %s in base %s\n",

Received on Thursday, 1 May 2008 07:56:47 UTC