Catalystで文字化けな刑

Catalyst

mod_perlでShift_JISで書き出してくれない。
Catalystでin EUC out Shift_JISな携帯あぷでserver.plだと問題ないけど
Apache2.0+mod_perlでShift_JISで出してくれなくなった。　なぜだかさっぱり。
AddDefaultCharsetとかoffとかnoneとかShift_JISとか試したけどだめだなぁー
ほかのEUCあぷりは大丈夫なんだけど。

  charsets => {
    in => 'EUC-JP',
    out => 'Shift_JIS',
  },

でもHTTPレスポンスヘッダでは`EUC-JP` になっとる。

$c->res->headers->content_type('text/html; charset=Shift_JIS');

こんなんしてもだめだった。

use Catalyst qw/Charsets::Japanese/;
  charsets => {
    in => 'EUC-JP',
    out => 'Shift_JIS',
  },

↑これを消したらShift_JISで表示されるようになった。　なして？

とりあえず元に戻して(Charsets::Japaneseを有効）

  charsets => {
    in => 'EUC-JP',
    out => 'Shift_JIS',
  },

で再びチャレンジ
http://search.cpan.org/~lyokato/Catalyst-Plugin-Charsets-Japanese-0.06/lib/Catalyst/Plugin/Charsets/Japanese/Nihongo.pod
これを参考に表示させてみた

    sub default : Private {
        my( $self, $c ) = @_;
        # 内部処理用の文字コード名( UTF-8, EUC-JP, Shift_JIS )
        my $inner_charset = $c->charsets->in->name;
        # 内部処理用の文字コード省略名( utf8, euc, sjis )
        my $inner_abbrev = $c->charsets->in->abbreviation;
        # 内部処理用の文字コードのJcodeにおけるコンバート用メソッド名( utf8, euc, sjis )
        my $inner_method = $c->charsets->in->method;
        # 同様に、出力用文字コードについて知りたいときも、
        # name ,abbreviation, method を使用できます。
        my $outer_charset = $c->charsets->out->name;
    }

その結果

# 内部処理用の文字コード名( UTF-8, EUC-JP, Shift_JIS )
EUC-JP
# 内部処理用の文字コード省略名( utf8, euc, sjis )
euc
# 内部処理用の文字コードのJcodeにおけるコンバート用メソッド名( utf8, euc, sjis )
euc
# 同様に、出力用文字コードについて知りたいときも、
# name ,abbreviation, method を使用できます。
EUC-JP

最後の出力用文字コードがEUC-JPになってる！　な、なんでだー
テストサーバーのserver.plでみると最後がちゃんとShift_JISになってくれているんだけど・・

試しにCharsets::JapaneseだけのCatalystアプリつくってやってみたら
Content-Type: text/html; charset=EUC-JPになってしまった。
Apache & mod_perlの問題なのか？

mod_perl組み込みApacheのログを見るとouter code Shift_JIS

[debug] Loaded dispatcher "Catalyst::Dispatcher"
[debug] EUC-JP is selected for inner code.
[debug] Shift_JIS is selected for outer code.

んーむ・・・　このあたりでギブアップ
/usr/local/lib/perl5/site_perl/5.8.8/Catalyst/Plugin/Charsets/Japanese.pm
を
/usr/local/lib/perl5/site_perl/5.8.8/Catalyst/Plugin/Charsets/Japanese2.pm
にしてoutをShift_JIS固定になるようにして、とりあえずなんとか・・ orz