- 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