--- cvs-head/lib/WAIT/Database.pm 2002/05/03 16:16:10 85 +++ cvs-head/lib/WAIT/Database.pm 2004/05/24 13:41:28 86 @@ -106,7 +106,7 @@ $self->{file} = "$dir/$name"; $self->{uniqueatt} = $parm{uniqueatt}; $self->{mode} = O_CREAT; - my $lockmgr = LockFile::Simple->make(-autoclean => 1); + my $lockmgr = LockFile::Simple->make(-autoclean => 1, -stale => 1); # aquire a write lock $self->{write_lock} = $lockmgr->lock("$dir/$name/write") or die "Can't lock '$dir/$name/write'"; @@ -153,7 +153,7 @@ if ($self->{mode} & O_RDWR) { # Locking: We do not care about read access since write is atomic. - my $lockmgr = LockFile::Simple->make(-autoclean => 1); + my $lockmgr = LockFile::Simple->make(-autoclean => 1, -stale => 1); # aquire a write lock $self->{write_lock} = $lockmgr->lock("$dir/$name/write") @@ -318,7 +318,8 @@ } WAIT::Table::Handle->new($self,$name); } else { - croak "No such table '$name'"; + print STDERR "No such table '$name'\n"; + return; } }