namazu-ml(avocado)

[seigo <ishiyama.seigo@xxxxxxxxxxxxxxxxx>]

石山です。
どうもすいません。
perl-5.004
と、
namazuの1.2.0.1
（馬場さんの本のおまけCDより）
を使っています。

1586行目の前後です。


    # FLIST へ書き出し <DT> の後に改行が欲しいのです
     print FLIST "<DT>\n<STRONG><A HREF=\"$url\">$title</A></STRONG>\n";
     print FLIST "<DD>$abstract\n";
!    $url =~ m!^(.*/)!;
!    my $dir = $1;
!    print FLIST "<DD><A HREF=\"$dir\">$dir</A><BR><BR>\n";
     # 最後に空行を入れる(これは重要な仕様)
     print FLIST "\n";