Rename pages doesn't rename file ".lck"
sub RenamePage {
...
unlink($newkeep) if (-f $newkeep); # Clean up if needed.
rename($oldkeep, $newkeep);
unlink($IndexFile) if ($UseIndex);
+ my ($oldlock, $newlock);
+ $oldlock = &GetLockedPageFile($old);
+ if (-f $oldlock) {
+ $newlock = &GetLockedPageFile($new);
+rename($oldlock, $newlock);
+ }
Thank to the great UseModKr script (and my comparative study on the best of both worlds)!
--JuanmaMP