- From: Ville Skytta <ville@hutz.w3.org>
- Date: Mon, 12 Apr 2004 15:38:17 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv10806
Modified Files:
checklink
Log Message:
Fix broken fragment UI (was broken in revision 3.30).
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.34
retrieving revision 3.35
diff -u -d -r3.34 -r3.35
--- checklink 12 Apr 2004 11:56:17 -0000 3.34
+++ checklink 12 Apr 2004 15:38:12 -0000 3.35
@@ -1731,7 +1731,7 @@
my ($u, $results) = @_;
if ($results->{$u}{location}{record} == 200) {
- return $results->{$u}{location}{orig};
+ return $results->{$u}{location}{orig} || $results->{$u}{location}{record};
} else {
return $results->{$u}{location}{record};
}
Received on Monday, 12 April 2004 11:38:31 UTC