- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 02 Sep 2007 08:48:39 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv10473
Modified Files:
checklink
Log Message:
Output HTTP headers before fetching the first document (related to #4985).
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.63
retrieving revision 4.64
diff -u -d -r4.63 -r4.64
--- checklink 17 Aug 2007 21:06:56 -0000 4.63
+++ checklink 2 Sep 2007 08:48:36 -0000 4.64
@@ -718,6 +718,11 @@
my ($uri, $is_first, $depth, $cookie, $referer, $is_start) = @_;
$is_start ||= $is_first;
+ if ($Opts{HTML}) {
+ &html_header($uri, 0, $cookie) if $is_first;
+ print('<h2>');
+ }
+
my $start = $Opts{Summary_Only} ? 0 : &get_timestamp();
# Get and parse the document
@@ -744,11 +749,6 @@
# We are checking a new document
$doc_count++;
- if ($Opts{HTML}) {
- &html_header($uri, 0, $cookie) if $is_first;
- print('<h2>');
- }
-
my $absolute_uri = $response->{absolute_uri}->as_string();
my $result_anchor = 'results'.$doc_count;
Received on Sunday, 2 September 2007 08:48:41 UTC