--- cvs-head/lib/WAIT/Table.pm	2000/11/12 17:00:27	35
+++ cvs-head/lib/WAIT/Table.pm	2000/11/13 20:25:49	41
@@ -661,11 +661,13 @@
 # If a "write" lock is requested, an existing "read" lock will be
 # released.  If a "read" lock ist requested, an existing "write" lock
 # will be released.  Requiring a lock already hold has no effect.
-  
+
 sub getlock {
   my ($self, $mode) = @_;
-  
-  my $lockmgr = LockFile::Simple->make(-autoclean => 1);
+
+  # autoclean cleans on DESTROY, stale sends SIGZERO to the owner
+  # 
+  my $lockmgr = LockFile::Simple->make(-autoclean => 1, -stale => 1);
   my $file    = $self->{file} . '/records';
   my $lockdir = $self->{file} . '/read';