- From: Ville Skytta <ville@dev.w3.org>
- Date: Wed, 02 Jun 2004 16:03:02 +0000
- To: www-validator-cvs@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