プライベートアイテムだけのエントリで parse error

プライベートアイテムしかないエントリが存在する ChangeLogメモを chalow0.20 に処理させると、

reading "/home/hiroaki/testlog.txt"
parse error at /home/hiroaki/chalow-0.20/chalow.org line 375.

というエラーになります。

プライベートアイテムしかないエントリの例

2003-10-21 Saito Hiroaki <mail@example.com>
    * p: 仕事: 大事なサーバのパスワード
    foobarbuzz

2003-10-20 Saito Hiroaki <mail@example.com>
    * メモ: 2ちゃんねるターボ用 proxy 設定ファイル
    http://www.geocities.co.jp/SiliconValley/8222/2chturbo.html

また、プライベートアイテムしかないエントリの場合、
chalow はエントリーヘッダのみを出力してしまいます。

「プライベートアイテムを削除した結果エントリーヘッダしか残っていない」という場合、
375行目で (.+)\Z の部分がマッチしないのでエラーとなっているようです。

die "parse error" unless ($e =~ /\A(\d{4}-\d\d-\d\d.+?\n)(.+)\Z/sm);

以下のように + を * に修正することでとりあえず parse error は回避できますが、
エントリーヘッダのみ html 出力してしまうという現象までは回避できません。

die "parse error" unless ($e =~ /\A(\d{4}-\d\d-\d\d.+?\n)(.*)\Z/sm);

もっと根本的なところで直す必要があると思い、プライベートアイテム削除ロジックを
changelog 全体をクリーニングしている部分に移動させました。
以下がそのパッチです。
もっとよい方法があれば教えてください。

--- chalow.org    Tue Oct 21 20:10:23 2003
+++ chalow    Wed Oct 22 17:39:02 2003
@@ -259,10 +259,6 @@
       s/^($day)\s.+/$1  $user/;
    }

-    # 秘密の項目を外に出さないように削除
-    # 例: * p:秘密メモ: YTがまたやらかした。しょうもないやつだ。
-        s/\n\t+\* p:.+?^(\t+\*|$)/$1/gms;
-
    # エントリをパーズして、文字列置き換え
    parse_entry($_, \%{$all_entries{$day}});
    }
@@ -983,6 +979,11 @@
    $$strp =~ s/\n[\s\t]+(\n\S)/\n$1/gm;
    # \n(\s+)\n\t* ほげ: ... の $1 を消す
    $$strp =~ s/\n[\s\t]+(\n[\s\t]+\*\s+)/\n$1/gm;
+    # 秘密の項目を外に出さないように削除
+    # 例: * p:秘密メモ: YTがまたやらかした。しょうもないやつだ。
+    $$strp =~ s/\n\t+\* p:.+?^(\t+\*|$)/$1/gms;
+    # 秘密の項目を削除した結果、空になったエントリを削除
+    $$strp =~ s/^\d{4}-\d{2}-\d{2}.*?\n(?=(\d{4}-\d{2}-\d{2}.*?\n)|\Z)//gm;
    # 項目内での段落区切り表す空行をタブ行にする
    $$strp =~ s/\n(\n\t[^\*])/\n\t$1/gm;
}