--- cvs-head/lib/WAIT/Table.pm 2000/11/13 20:25:49 41 +++ cvs-head/lib/WAIT/Table.pm 2000/11/15 08:54:25 42 @@ -4,9 +4,9 @@ # Author : Ulrich Pfeifer # Created On : Thu Aug 8 13:05:10 1996 # Last Modified By: Ulrich Pfeifer -# Last Modified On: Sun Nov 12 17:51:56 2000 +# Last Modified On: Tue Nov 14 16:19:17 2000 # Language : CPerl -# Update Count : 148 +# Update Count : 149 # Status : Unknown, Use with caution! # # Copyright (c) 1996-1997, Ulrich Pfeifer @@ -381,6 +381,9 @@ } require WAIT::InvertedIndex; } + + $self->getlock($self->{mode}); + unless (defined $self->{dbh}) { if ($USE_RECNO) { $self->{dbh} = tie(@{$self->{db}}, 'DB_File', $file, @@ -392,7 +395,6 @@ } } - $self->getlock($self->{mode}); $self; }