今朝方手紙確認しまして、返信いたしました。遅れて申し訳ありませんが、よろしくお願いします。

ご報告ありがとうございます。修正しました。決算で実際に徴収されるほうは大丈夫だと思います。よろしくお願いします。

ありがとうございました。

報告ありがとうございます。ちょっと確認してみます。

追加されるアイテムの数は正しいのですが、表示がおかしいようでしたので、修正しました。よろしくお願いします。

対応遅れてすいません。7/1の段階の預金に戻しておきました。
よろしくお願いします。

いえいえ、誤りの可能性が高いと思います・・・
重ね重ねすいません；；

サーバーは、こちらと同じ「さくら」です。
現在はPerl 5.14.4 [標準のPerl]になっているようです。

#市場在庫上限下限チェック＆補正
CheckWholeStore();

#イベント終了処理
@event::DT=@DT;
@event::ITEM=@ITEM;
my %group=();
if(defined(%DTevent))

の最後の行を、
if((%DTevent)

としてみるとどうでしょうか。

イベントの終了判定のようですので、一見直っているようでも、イベントが終わらずにいつまでも続いているようだと失敗です。

もしくは、
if(defined(%DTevent))
{
を消してしまってもPerlだと動作する気もします。
この場合、317行目の
}　←　この閉じ括弧も消してください。

#イベント開始処理

正しくは、
if(%DTevent)
に置き換えてください。
こちらで試したところ、おそらく動作大丈夫でした。
ほかでも、if(defined(%○○))
があってエラーが出るようでしたら、
if(%○○)
にしてもたぶんいいと思います。この辺は商人物語というよりPerl全般のことなので、専門家に聞いてみないとなんともいえないのですが。

試しに動作確認までしていただいて、ありがとうございます。
早速No.552のご指示通り
inc-turn.cgiのほかにguild.cgiで１ヵ所、jcordpl.cgiで2ヵ所の
definedを削除したら上手くいきました。

ご面倒をおかけしました。
また分からないことがありましたら、よろしくお願いします。

うまく動いているようでよかったです。
私のほうでもそのうちこの対応が必要かもしれません。