Here is the shortest workaround i could come up with:

# somewhere at top add this
use HTML::Entities;

# and somewhere in the middle add this
sub print_revision {
   my $self = shift;
   my @time_units = ('days', 'hours', 'minutes', 'seconds');
   my ($uri_base, $revision, $diff_revision) = @_;
   my $revision_uri = "$uri_base?r=" . $revision->number();
   my $date = localtime($revision->date());
   my $age = join(', ',
      map { $revision->age()->{$_} . ' ' . $_ } @time_units);
   my $symbol = $revision->symbol() || ' ';
   $self->request()->print("<tr>
      <td><a href=$revision_uri>" .
      $revision->number() . '</td>' .
      '<td>' . $revision->author() . '</td>' .
      '<td>' . $revision->state() . '</td>' .
      "<td>$symbol</td><td>$date</td><td>$age</td>" .
      '<td>' . encode_entities($revision->comment()) . '</td>');
   if ($diff_revision eq $revision->number()) {
      $self->request()->print('<td>selected for diff</td>');
   } else {
      if ($diff_revision) {
         $self->request()->print(qq|<td><a href="$uri_base?ds=| .
         $revision->number()  .
         qq|&dt=$diff_revision">select for diff | .
         "with $diff_revision</a>");
      } else {
         $self->request()->print(qq|<td><a href="$uri_base?ds=| .
         $revision->number()  .
         '">select for diff</a>');
      }
   }
   $self->request()->print('</tr>');
}
[download]

'<td>' . encode_entities($revision->comment()) . '</td>');
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)