Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.305.2.124
diff -a -u -r1.305.2.124 check
--- check	16 May 2004 09:01:27 -0000	1.305.2.124
+++ check	16 May 2004 10:13:51 -0000
@@ -2226,16 +2226,17 @@
     <p>Below is the source input I used for this validation:</p>
     $comment
     <div>
-      <pre>
 EOF
+  print '      <pre>'; # no newline after ...
 
+  my $maxhlen = length("$lines");
   for (@{$File->{Content}}) {
-    my $hline = (' ' x (length("$lines") - length("$line"))) . $line;
-    printf qq(<a id="line-%s"><strong>%s</strong>: %s</a>\n),
-      $line, $hline, ent $_;
+    my $hline = (' ' x ($maxhlen - length("$line"))) . $line;
+    printf qq(<a id="line-%s" name="line-%s"><strong>%s</strong>: %s</a>\n),
+      $line, $line, $hline, ent $_;
     $line++;
   }
-  print "      </pre>\n    </div>\n  </div>";
+  print "</pre>\n    </div>\n  </div>"; # no whitespace before </pre> ...
 }