文字コードの件

直した。

my $charset = eval { Tangerine->_config->val(qw/Global charset cp932/) };
   $charset = 'cp932' if $@;

あとはこれでShift_JIS決め打ちになってるところを[]$charset[]を使うように置き換えるだけ。