UTF8フラグではまる

QDBMでキーが文字化け。(QDBMはタイ関数を用いて利用している)
いろいろやった結果、こんな風にしてみたら文字化けしなくなった。

my $saved_key = Encode::is_utf8($key) ? encode("utf8", $key): $key;
$record_hash{$saved_key} = $hash{$key};

やっぱりUTF8フラグがついていたのが問題っぽい。
文字化け解消するのに結構時間かかったし、かんべんして欲しい。

外部モジュールを用いるときはUTF8フラグを外すようにしないなぁ、面倒だけど。