/[wait]/trunk/lib/WAIT/Table.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Table.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 35 by ulpfr, Sun Nov 12 17:00:27 2000 UTC revision 41 by laperla, Mon Nov 13 20:25:49 2000 UTC
# Line 661  sub close { Line 661  sub close {
661  # If a "write" lock is requested, an existing "read" lock will be  # If a "write" lock is requested, an existing "read" lock will be
662  # released.  If a "read" lock ist requested, an existing "write" lock  # released.  If a "read" lock ist requested, an existing "write" lock
663  # will be released.  Requiring a lock already hold has no effect.  # will be released.  Requiring a lock already hold has no effect.
664      
665  sub getlock {  sub getlock {
666    my ($self, $mode) = @_;    my ($self, $mode) = @_;
667      
668    my $lockmgr = LockFile::Simple->make(-autoclean => 1);    # autoclean cleans on DESTROY, stale sends SIGZERO to the owner
669      #
670      my $lockmgr = LockFile::Simple->make(-autoclean => 1, -stale => 1);
671    my $file    = $self->{file} . '/records';    my $file    = $self->{file} . '/records';
672    my $lockdir = $self->{file} . '/read';    my $lockdir = $self->{file} . '/read';
673    
Legend:
Removed from v.35  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26