- $fontset = 0;
- if (defined $scanlib::comments{$p}) {
- if ($html && defined($scanlib::comments{$p})) {
- if ($scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
- $fontset=1;
- print "<span style=\"color: red\">";
- }
- }
- $header=1;
- &PrintPackageHeader($p);
- print $scanlib::comments{$p};
- }