diary/lib/Board/Article.pmの190行目を修正。

    if ($self->ref_diary ne '' && $self->IsRoot()) {
        $str .= '<span class="dlink">' .
                '<a href="' .
                $Board::HnsPath .
#               '?to=' .
                substr($self->ref_diary,0,4) . '/' .
		substr($self->ref_diary,4,2) . '/' .
		substr($self->ref_diary,6,2).'.html' . '#' . $self->ref_diary .
                '">' .
                $self->title . '</a></span>';

オレはPerlは（も）エレガントに書けないんだよなぁー。人のソースを読んでないから。
でも恥ずかしがって表に出さないと、いつまでたっても恥ずかしいマンマなので。
本当はローカル変数に代入して、chopして最後の文字を落としてsubstrでYYYYとMMとDDを取り出せば良いんだろうけど。

    if ($self->ref_diary ne '' && $self->IsRoot()) {
	my $rewrite = $self->ref_diary;
        $str .= '<span class="dlink">' .
                '<a href="' .
                $Board::HnsPath .
                substr($rewrite,0,4) . '/' .
		substr($rewrite,4,2) . '/' .
		substr($rewrite,6,2) . '.html#' . $rewrite .
                '">' .
                $self->title . '</a></span>';

という感じで。