CHALOW Keitai

2003-07-15-1

item header 以外の行が「\t*」で始まると、それ以降が消えてしまうと
いうバグ [chalow:23] に対処。

例:
a
b
*
c

原因は item を認識する正規表現。

# (3) 個々の item に分解し、各 item ごとに処理
my @itemlist;
while ($items =~ /^(\t\* .+?\n(?=\s*(\t\*|\Z)))/gsm) {
push @itemlist, $1;
}

↓

while ($items =~ /^(\t\* .+?\n(?=\s*(\t\* |\Z)))/gsm) {