これは ~/diary/cache/2000/20000619.xhnf の中身が何かの理由で重複して作られてしまったので、 それを書替えるきっかけがなければ、自然に直る ということはない。
以下いろいろ調べたが、多分意味がない。 public_html/diary/lib/HNS/Diary.pm

    116 sub Read($)
    117 {
    118     my $self = shift;
    119     my $ok;
    120     my $warning_message;
    121
    122     # xhnf checking
    123     my ($year, $month, $day) = ($self->year, $self->month, $self->day);
    124     my $xhnf = "$HNS::System::CacheDir/$year/$year$month$day.xhnf";
    125     if (-f $xhnf) {
    126         my $xhnf_lm = (stat($xhnf))[9];
    127         if (($self->last_modified == $xhnf_lm)
    128                 || ($HNS::System::AllowCacheOnly && ! -e $self->filename)) {
    129             $self->read_done(1);
    130             return;
    131         }

127 行目の last_modified を見ると、 「元の時刻情報と、Cache xhnf が同じなら、処理は飛ばす」という Cache について当然の処理が書いてある。

makoto@milano ■18:50:41/000709(~...lib/HNS)> grep -n last_modified Diary.pm
48: last_modified
53:attributes qw(filename year month day tree user_var last_modified 
104:    # set last_modified
105:    $self->last_modified((stat($self->filename))[9]);
127:        if (($self->last_modified == $xhnf_lm)
210:        if (($self->last_modified == $xhnf_lm)
257:    utime($self->last_modified, $self->last_modified, $xhnf);

以前の d20000619.hnf を touch したい気分。 xhnf を書出しているのは次の部分

(index.cgi)
    173 # recent
    174 else {
    175     $col->ReadRecent($HNS::System::DefaultMax);
    176 }
    177 
    178 # print
    179 $hns->Print($col);

(lib/HNS/Collection.pm)

     71 sub Read($$$$)
     72 {
     73     my ($self, $year, $month, $day) = @_;
       ......
     85     for my $ymd (sort keys %{$self->diarys}){

    114     @files = grep /^d\d{4,}$month$day\.hnf$/, readdir DIR;

    100 sub ReadDay($$$) 
    101 {
    102     my ($self, $month, $day) = @_;

    121         $self->diarys->{$1} = $diary;

    176  最新 $max 分を読み込む。

    180 sub ReadRecent($;$)
    181 {
    182     my ($self, $max) = @_;
        .....
    204             $diary->Read;


(lib/HNS/Diary.pm)
    190 sub Print($$)
    191 {
    192     my $self = shift;
    193     my $reverse_sec = shift;
        .....
    250     open X, ">$xhnf";
    251     eval 'flock(X, LOCK_EX)';
    252     # head
    253     my $head = $HNS::Diary::Head;
    254     $head =~ s/%user{([A-Z]+)}/$self->user_var->Eval($1)/ge; # user var
    255     $templ->SetTemplate($head);
    256     print X $templ->Expand;
    257     if ($self->has_user_var) {
    258         my $user_var = $HNS::Diary::UserVar;
    259         $user_var =~ s/%user{([A-Z]+)}/$self->user_var->Eval($1)/ge; # user var
    260         $templ->SetTemplate($user_var);
    261         print X $templ->Expand;
    262     }
    263     close X;
    264
    265     # diarys
    266     $self->tree->Print($self->year, $self->month, $self->day, $HNS::Diary::section);
    267