W3C home > Mailing lists > Public > www-validator-cvs@w3.org > June 2004

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

From: Ville Skytta <ville@dev.w3.org>
Date: Wed, 02 Jun 2004 16:03:02 +0000
To: www-validator-cvs@w3.org
Message-Id: <20040602160302.D663F4A853@hutz.w3.org>

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

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