Test::WWW::Mechanize::Catalystが”HTTP::Message content must be bytes”とか言ってくるとき

Catalyst

http://d.hatena.ne.jp/goryugo/20090222/1235237948
こちら↑ではWWW::Mechanizeが文句言ってきたときはHTTP::Request::Commonに手を加えたとのことだけど、俺がTest::WWW::Mechanize::Catalystで同じ事言われた場合はそれやっても駄目だったのでこうしますた

[/usr/lib/perl5/site_perl/5.8.5/Test/WWW/Mechanize]
# diff Catalyst.pm Catalyst.pm_org
88,94c88
<         require utf8;
<         if (utf8::is_utf8($response->decoded_content)){
<             $response->content( utf8::encode($response->decoded_content) );
<         }
<         else {
<             $response->content( $response->decoded_content );
<         }
---
>         $response->content( $response->decoded_content );