sub DeletePage { ... $fname = $KeepDir . "/" . &GetPageDirectory($page) . "/$page.kp"; unlink($fname) if (-f $fname); ### 예전에 lock 화일 관련 패치한 부분 $fname = &GetLockedPageFile($page); unlink($fname) if (-f $fname); ### 다음 라인을 추가로 삽입 &UnlinkHtmlCache($page); ### unlink($IndexFile) if ($UseIndex); &EditRecentChanges(1, $page, "") if ($doRC); # Delete page # Currently don't do anything with page text } }}} : RenamePage 에서는, lck 화일과 달리 cache 화일은 그냥 삭제한다. {{{#!vim perl sub RenamePage { ... ### 이전 패치에서 추가한 lck 화일 관련 부분 my ($oldlock, $newlock); $oldlock = &GetLockedPageFile($old); if (-f $oldlock) { $newlock = &GetLockedPageFile($new); rename($oldlock, $newlock) || die "error while renaming lock"; } ### 아래 라인을 추가로 삽입 &UnlinkHtmlCache($old); ### &EditRecentChanges(2, $old, $new) if ($doRC); if ($doText) { &BuildLinkIndexPage($new); # Keep index up-to-date &RenameTextLinks($old, $new); } }