--- diagnostics.pm      2009-06-15 04:21:42.000000000 -0400
+++ diagnostics.pm.fix  2009-12-05 10:29:53.096561000 -0500
@@ -222,6 +222,7 @@

 local $| = 1;
 my $_;
+local $.;

 my $standalone;
 my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7);