diff options
| author | hugo <hugo@localhost> | 2000-03-20 20:55:40 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-03-20 20:55:40 +0000 |
| commit | 2a4b233af4c43f1f3f3a6230d4d946a7afd41783 (patch) | |
| tree | 078a1f078c92d7fc2cc794366dedc0a44361618e | |
| parent | e7c09e41574c9a2cae0c676a6f592e161b8c4724 (diff) | |
| download | markup-validator-2a4b233af4c43f1f3f3a6230d4d946a7afd41783.zip markup-validator-2a4b233af4c43f1f3f3a6230d4d946a7afd41783.tar.gz markup-validator-2a4b233af4c43f1f3f3a6230d4d946a7afd41783.tar.bz2 | |
I knew I would break something changing the data structures: I love it when a plan comes together!
Fixed a table display problem.
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index 0d3fbc4..b509254 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.34 2000-03-01 23:15:42 hugo Exp $ +# $Id: checklink.pl,v 2.35 2000-03-20 20:55:40 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -31,7 +31,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.34 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.35 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # Different options specified by the user @@ -1140,10 +1140,7 @@ sub show_link_report { foreach $u (@{$urls}) { my @fragments = keys %{$broken->{$u}{fragments}}; # Count the rows displayed - my $n_fragments = $#fragments+1; - if (!defined($broken->{$u}{location})) { - $n_fragments++; - } + my $n_fragments = $#fragments+2; # Did we get a redirect? my $redirected = &is_redirected($u, %$redirects); # List of lines |