[popfile-commit] engine coverage.pl,1.5,1.6

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

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

Modified Files:
	coverage.pl 
Log Message:
Minor fix to coverage tool to convert < and > in HTML to entities

Index: coverage.pl
===================================================================
RCS file: /cvsroot/popfile/engine/coverage.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** coverage.pl	26 Jul 2003 14:42:18 -0000	1.5
--- coverage.pl	26 Jul 2003 17:25:46 -0000	1.6
***************
*** 103,106 ****
--- 103,108 ----
          my $color = (defined($count{$file}{executed}{$line}) && ($count{$file}{executed}{$line}==0))?"red":"green";
          my $block = ($color eq 'red')?"red":"white";
+         s/</&lt;/g;
+         s/>/&gt;/g;
          print HTML "<span style=\"background: $block\">&nbsp;</span><font color=$color>$_</font>";
      }