The hazards of not checking things in as they're written.

This test pair was probably written because the perl tokenizer failed
miserably. But I don't quite remember why.

webtools/lxr/tests/syntax-highlighting/yuck.pl

@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+my $tag = '<span class=line>';
+$tag .= keys(@ARGV). ' ';
+$tag .= '</span>';
+$tag .= keys(@ARGV).' ';
+$tag .= '</span>';

webtools/lxr/tests/syntax-highlighting/yuck2.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+sub linetag {
+#$frag =~ s/\n/"\n".&linetag($virtp.$fname, $line)/ge;
+#    my $tag = '<a href="'.$_[0].'#L'.$_[1].
+#       '" name="L'.$_[1].'">'.$_[1].' </a>';
+    my $tag;
+    $tag = '<span class=line>';
+    $tag .= ' ' if $_[1] < 10;
+    $tag .= ' ' if $_[1] < 100;
+    $tag .= ' ' if $_[1] < 1000;
+    $tag .= &fileref($_[1], $_[0], $_[1]). ' ';
+    $tag .= '</span>';
+    $tag .= &fileref($_[1], $_[0], $_[1]).' ';
+    $tag .= '</span>';
+    $tag =~ s/<a/<a name=$_[1]/;
+#    $_[1]++;
+    return($tag);
+}