catalystでParsing of undecoded UTF-8 will give garbage when decoding entities atとか出るのを止める

Parsing of undecoded UTF-8 will give garbage when decoding entities atとか出るのは、ググったらHTML::Parserのバグらしい。
不要なので止める。
HTML::FillInFormを編集。174行目くらい。

% vi HTML::FillInForm

  if(my $file = $option{file}){
    $self->parse_file($file);
  } elsif (my $scalarref = $option{scalarref}){
+   $self->utf8_mode(1);
    $self->parse($$scalarref);
  } elsif (my $arrayref = $option{arrayref}){
    for (@$arrayref){
      $self->parse($_);
    }
  }

とりあえず止まった。