2ch特化型サーバ・ロケーション構築作戦 Part35

[52 ◆TWARamEjuA 2009/10/03(土) 19:03:50 ID:mOCtwWtL0]

こちらでご相談するのがよいかしら？
ってことで。

症状：
cobra2245鯖にて、本日2009/10/03 12:50(JST)より、Boo2008関連ファイルの自動生成装置より以下のエラーが出るようになりました。
panic: sv_setpvn called with negative strlen at /home/ゴホンと/云えば/龍角散.pl line 32.
該当行は以下のようになっております。
for my $key (sort keys %boo2008_DB_Hash){
註：%boo2008_DB_HashはDB_Fileにてtieされたハシュです。以下に該当行(line29-31)を。
my $boo2008_DB = tie %boo2008_DB_Hash, "DB_File", "$BooDB_Dir/$DB_Filename", O_RDWR|O_CREAT, 0666, $DB_Type
# or die "[error] Can not access $DB_Filenamen";
or next;

処置：
1. for構文を以下に変更してみた（DB_Fileのサンプルを参照した。http://search.cpan.org/~pmqs/DB_File-1.820/DB_File.pm#Another_Example ）
my ($status, $key, $value);
for (
　$status = $boo2008_DB->seq($key, $value, R_FIRST) ;
　$status == 0 ;
　$status = $boo2008_DB->seq($key, $value, R_NEXT)
) {
1-Result.
for行で同じメッセージが出た。（変化無し）
（次に続く）