[Perl] Cache::FileCacheの日本語の問題。

Cache/FileBackend.pmの201行目

sub _Build_Unique_Key
{
  my ( $p_key ) = @_;

  Assert_Defined( $p_key );

  return sha1_hex( $p_key );
}

このsha1_hexが日本語NGなのですな。
ここだけ見ると sha1_hexを別の適当なhash関数に変えればよいかなぁとも。
オブジェクト指向的には、継承して派生クラスで修正したいんだけども方法が良く分からず。
sha1_hexは組み込み関数かな？
→Digest::SHA1の関数だった。このモジュールも最新だなぁ。
_Build_Unique_Keyに渡す引数を、事前にエンコードしておくのが良いかな。何か良い関数はあるだろうか。

やりたいことは別のことなのになぁ・・・。