pillowを修正してみた。

うまく動かないので自分で修正してみた。
file.plのwrite_delメソッドを

	open(OUT, "> $self->{'log_path'}/${file_name}");
	flock(IN, 2);
	for ($i = 0; $i < $self->{'total'}+1; $i++) {
		# 削除メッセージ
		next if ($del_number == $i);

		$self->write_one_message(OUT, $self->{'log'}->[$i]);
	}

と修正した。
ローカル環境ではうまくいってるけど公開したらまずいかな?
また某アンテナが落ちるかも・・・
しばらく様子を見よう。