4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
5 |
# Created On : Thu Aug 8 13:05:10 1996 |
# Created On : Thu Aug 8 13:05:10 1996 |
6 |
# Last Modified By: Ulrich Pfeifer |
# Last Modified By: Ulrich Pfeifer |
7 |
# Last Modified On: Mon May 8 20:20:58 2000 |
# Last Modified On: Fri May 19 14:51:14 2000 |
8 |
# Language : CPerl |
# Language : CPerl |
9 |
# Update Count : 131 |
# Update Count : 133 |
10 |
# Status : Unknown, Use with caution! |
# Status : Unknown, Use with caution! |
11 |
# |
# |
12 |
# Copyright (c) 1996-1997, Ulrich Pfeifer |
# Copyright (c) 1996-1997, Ulrich Pfeifer |
626 |
sub set { |
sub set { |
627 |
my ($self, $iattr, $value) = @_; |
my ($self, $iattr, $value) = @_; |
628 |
|
|
629 |
return unless $self->{write_lock}; |
unless ($self->{write_lock}) { |
630 |
|
die "Cannot set attribute $iattr without having a write lock. Nothing done"; |
631 |
|
} |
632 |
for my $att (keys %{$self->{inverted}}) { |
for my $att (keys %{$self->{inverted}}) { |
633 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |
634 |
my $idx; |
my $idx; |
654 |
$_->close(); |
$_->close(); |
655 |
} |
} |
656 |
if (defined $self->{inverted}) { |
if (defined $self->{inverted}) { |
657 |
|
require WAIT::InvertedIndex; |
658 |
my $att; |
my $att; |
659 |
for $att (keys %{$self->{inverted}}) { |
for $att (keys %{$self->{inverted}}) { |
660 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |
if ($] > 5.003) { # avoid bug in perl up to 5.003_05 |