diff options
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index bac7cf8..c155381 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.64 2000-08-11 21:35:32 hugo Exp $ +# $Id: checklink.pl,v 2.65 2000-08-15 18:03:27 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -34,7 +34,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.64 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.65 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # Different options specified by the user @@ -1196,16 +1196,16 @@ sub show_link_report { my @fragments = keys %{$broken->{$u}{fragments}}; # Did we get a redirect? my $redirected = &is_redirected($u, %$redirects); - # List of lines: list only the lines that we care about, i.e. only - # the lines with broken fragments for 200's + # List of lines my @total_lines; my ($f, $l); - if ($results->{$u}{location}{code} != 200) { - foreach $l (keys %{$links->{$u}{location}}) { - push (@total_lines, $l); - } + foreach $l (keys %{$links->{$u}{location}}) { + push (@total_lines, $l); } - foreach $f (@fragments) { + foreach $f (keys %{$links->{$u}{fragments}}) { + if ($f eq $u) { + next if (defined($links->{$u}{$u}{-1})); + } my $l; foreach $l (keys %{$links->{$u}{fragments}{$f}}) { push (@total_lines, $l); |