[popfile-commit] engine coverage.pl,1.7,1.8

[<jgr...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv5569

Modified Files:
	coverage.pl 
Log Message:
HTML colored coverage output now include line numbers

Index: coverage.pl
===================================================================
RCS file: /cvsroot/popfile/engine/coverage.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** coverage.pl	26 Jul 2003 17:35:25 -0000	1.7
--- coverage.pl	26 Jul 2003 17:41:26 -0000	1.8
***************
*** 106,109 ****
--- 106,116 ----
          s/</&lt;/g;
          s/>/&gt;/g;
+         print HTML "<font color=$color>";
+         my $length = 5 - length("$line");
+         while ( $length > 0 ) {
+              print HTML " ";
+              $length -= 1;
+ 	}
+         print HTML "$line </font>";
          print HTML "<span style=\"background: $block\">&nbsp;</span><font color=$color>$_</font>";
      }