perl - Memoize::Storable によって perl がクラッシュする

Question

次のコード (ほとんどは Memoize のホームページから) は、0 バイトのファイルを作成し、その後 perl が終了コード -1073741819 でクラッシュします。これを ActivePerl 5.10 と最新の 5.16 バージョンでテストしました。

use Memoize;
use Memoize::Storable;

sub ttt { return 44; }
tie my %cache => 'Memoize::Storable', 'ttt.store';
memoize 'ttt', SCALAR_CACHE => [HASH => \%cache];

これは、Win XP の 2 台の差分コンピュータで発生します。何か案は？

Answer 1

unmemoize情報がファイルに保存されるように、呼び出しが終了したらサブルーチンを明示的に実行する必要があります。

use strict;
use warnings;

use Memoize qw/ memoize  unmemoize /;
use Memoize::Storable;

sub ttt { 44 }

tie my %cache => 'Memoize::Storable', 'ttt.store';

memoize 'ttt', SCALAR_CACHE => [HASH => \%cache];

ttt($_) for 1..10;

unmemoize 'ttt';