$NetBSD: patch-ab,v 1.1.1.1 2004/05/13 09:22:30 mjl Exp $

This is the patch from
http://www.kwiki.org/index.cgi?PatchDeleteUnlockBug


--- lib/CGI/Kwiki/Database.pm.orig	Mon Aug 25 22:45:05 2003
+++ lib/CGI/Kwiki/Database.pm	Thu May 13 10:58:02 2004
@@ -36,6 +36,7 @@
 sub unlock {
     my ($self, $page_id) = @_;
     my $lock_handle = $self->lock_handle;
+       return unless -e $lock_handle;
     flock($lock_handle, LOCK_UN) 
       or die "Can't unlock $page_id\n:$!";
     close $lock_handle;