- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 01 May 2008 07:56:15 +0000
- To: www-validator-cvs@w3.org
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