perl/modules/W3C/LinkChecker/bin checklink,3.50,3.51

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv7475

Modified Files:
	checklink 
Log Message:
More markup improvements.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.50
retrieving revision 3.51
diff -u -d -r3.50 -r3.51
--- checklink	1 Jun 2004 22:26:49 -0000	3.50
+++ checklink	1 Jun 2004 22:30:51 -0000	3.51
@@ -849,9 +849,13 @@
       if ($response->code() == 401) {
         &authentication($response);
       } else {
-        &html_header($uri) if $Opts{HTML};
+        if ($Opts{HTML}) {
+          &html_header($uri);
+          print "<p>";
+        }
         &hprintf("\nError: %d %s\n",
                  $response->code(), $response->message() || '(no message)');
+        print "</p>\n" if $Opts{HTML};
       }
     }
     $response->{Stop} = 1;

Received on Tuesday, 1 June 2004 18:41:49 UTC