use strict;
use warnings;
-use Fcntl qw( :DEFAULT :flock :seek );
+our $VERSION = q(0.99_01);
-our $VERSION = '0.01';
+use Fcntl qw( :DEFAULT :flock :seek );
sub new {
my $class = shift;
sub lock {
my $self = shift;
my ($obj, $type) = @_;
+
+ #XXX This may not always be the correct thing to do
+ $obj = $self->{base_db_obj} unless defined $obj;
+
$type = LOCK_EX unless defined $type;
if (!defined($self->{fh})) { return; }