Thunderbirdのabook.mabなどのわけ分からん内容のファイルはFile::Morkを使って復元できる。
ところがFile-Mork-0.3でこんなエラーが出た。
Unknown encoding 'UTF-16$E3$82$84$E3$81$BE$E3$81$A0$E3$81$95$E3$82$93' at File/Mork.pm line 346
バイトオーダー判定の正規表現が"$BE"という文字列にマッチしてしまって、$self->{byte_order}がおかしくなる。
やっつけ修正したけど、これで合ってるかどうか知らんので自己責任で。
バグレポートはしてないので誰かもうちょっとマシなパッチ作ってレポっといて。
--- File/Mork.pm.orig 2010-03-25 13:14:48.065636000 +0900 +++ File/Mork.pm 2010-03-25 13:18:47.790343200 +0900 @@ -333,7 +333,7 @@ } # recognize the byte order of UTF-16 encoding - if (! defined ($self->{byte_order}) && $val =~ m/(?:BE|LE)/) { + if (! defined ($self->{byte_order}) && $val =~ m/[^/\/i$](?:BE|LE)/) { $self->{byte_order} = $val; }


