I also sent an email upstream to [EMAIL PROTECTED] containing the
patch below that fixes the bug. This is against their latest CVS, but
also applies cleanly against version 4.2.1-1.
--
Brian St. Pierre
brian @ bstpierre.org
http://bstpierre.org/
AOL IM: SlvBac
MSN IM: [EMAIL PROTECTED]
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.36
diff -u -r4.36 checklink
--- bin/checklink 15 Jun 2006 17:57:27 -0000 4.36
+++ bin/checklink 3 Oct 2006 02:18:50 -0000
@@ -674,8 +674,10 @@
my $result_anchor = 'results'.$doc_count;
- printf("\nProcessing\t%s\n\n",
- $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri);
+ if (!$Opts{Quiet}) {
+ printf("\nProcessing\t%s\n\n",
+ $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri);
+ }
if ($Opts{HTML}) {
print("</h2>\n");
@@ -717,11 +719,13 @@
EOF
}
- if ($Opts{Summary_Only}) {
- if ($Opts{HTML}) { print '<p>'}
- print 'This may take some time';
- if ($Opts{HTML}) { print '... (<a
href="'.$Cfg{Doc_URI}.'#wait">why?</a>)</
p>'}
- else { print " if the document has many links to check.\n"}
+ if (!$Opts{Quiet}) {
+ if ($Opts{Summary_Only}) {
+ if ($Opts{HTML}) { print '<p>'}
+ print 'This may take some time';
+ if ($Opts{HTML}) { print '... (<a
href="'.$Cfg{Doc_URI}.'#wait">why?</a>)
</p>'}
+ else { print " if the document has many links to check.\n"}
+ }
}
# Record that we have processed this resource
$processed{$absolute_uri} = 1;
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
