597 |
warn "Cannot set iattr[$iattr] without write lock. Nothing done"; |
warn "Cannot set iattr[$iattr] without write lock. Nothing done"; |
598 |
return; |
return; |
599 |
} |
} |
600 |
|
|
601 |
|
# in the rare case that they haven't written a single record yet, we |
602 |
|
# make sure, the inverted inherits our $self->{mode}: |
603 |
|
defined $self->{db} or $self->open; |
604 |
|
|
605 |
for my $att (keys %{$self->{inverted}}) { |
for my $att (keys %{$self->{inverted}}) { |
606 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |
607 |
my $idx; |
my $idx; |