perl/modules/W3C/LinkChecker/bin checklink,3.51,3.52

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

Modified Files:
	checklink 
Log Message:
Work around a bug in URI::sip(s) in URI 1.22-1.30.
http://lists.w3.org/Archives/Public/www-validator/2004Jun/0003.html


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.51
retrieving revision 3.52
diff -u -d -r3.51 -r3.52
--- checklink	1 Jun 2004 22:30:51 -0000	3.51
+++ checklink	2 Jun 2004 16:03:00 -0000	3.52
@@ -700,6 +700,11 @@
   foreach my $link (keys %{$p->{Links}}) {
     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|^$Opts{Masquerade_From}|) {
         printf("processing %s in base %s\n",

Received on Wednesday, 2 June 2004 12:03:02 UTC