過去のトラックバックのデータが壊れていたので修復

先日のサーバ移転[2008-03-16-1]により、
それ以前に頂いたトラックバックのデータが壊れていたので修復しました。

以下、修復に用いた使い捨てスクリプト。
tb-standalone のコードを削りに削って作りました。
ざっと見れば、分かる人には、何が問題だったのかが分かります。

#!/usr/bin/perl
use strict;
use warnings;

my $fn = shift @ARGV;
my $data = load_data($fn);
store_data($fn, $data);

sub load_data {
    my ($fn) = @_;
    require Storable;
    scalar eval { Storable::retrieve($fn) } || [];
}

sub store_data {
    my($fn, $data) = @_;
    require Storable;
    Storable::nstore($data, $fn);
}

ref.
- [を] Perl の Storable モジュールのメモ[2006-05-09-2]
- 技術文書：くっつきトラックバック
  http://nais.to/~yto/doc/tech/kuttuki-trackback.html