- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:46:59 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 81:184e71e34378
user: ville
date: Wed Jun 02 16:03:00 2004 +0000
files: bin/checklink
description:
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
diff -r d3255e8e69bc -r 184e71e34378 bin/checklink
--- a/bin/checklink Tue Jun 01 22:30:51 2004 +0000
+++ b/bin/checklink Wed Jun 02 16:03:00 2004 +0000
@@ -5,7 +5,7 @@
# (c) 1999-2004 World Wide Web Consortium
# based on Renaud Bruyeron's checklink.pl
#
-# $Id: checklink,v 3.51 2004-06-01 22:30:51 ville Exp $
+# $Id: checklink,v 3.52 2004-06-02 16:03:00 ville Exp $
#
# This program is licensed under the W3C(r) Software License:
# http://www.w3.org/Consortium/Legal/copyright-software
@@ -112,7 +112,7 @@
$PACKAGE = 'W3C Link Checker';
$PROGRAM = 'W3C-checklink';
$VERSION = '3.9.3-dev';
- my ($cvsver) = q$Revision: 3.51 $ =~ /(\d+[\d\.]*\.\d+)/;
+ my ($cvsver) = q$Revision: 3.52 $ =~ /(\d+[\d\.]*\.\d+)/;
$REVISION = sprintf('version %s [%s] (c) 1999-2004 W3C',
$VERSION, $cvsver);
$AGENT = sprintf('%s/%s [%s] %s',
@@ -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 Thursday, 5 August 2010 14:47:10 UTC