17 lines
501 B
Plaintext
17 lines
501 B
Plaintext
$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;
|