Parent Directory
| 
Revision Log
| 
Patch
| revision 85 by ulpfr, Fri May 3 16:16:10 2002 UTC | revision 86 by dpavlin, Mon May 24 13:41:28 2004 UTC | |
|---|---|---|
| # | Line 605 sub set { | Line 605 sub set { |
| 605 | defined $self->{db} or $self->open; | defined $self->{db} or $self->open; |
| 606 | ||
| 607 | for my $att (keys %{$self->{inverted}}) { | for my $att (keys %{$self->{inverted}}) { |
| 608 | if ($] > 5.003) { # avoid bug in perl up to 5.003_05 | require WAIT::InvertedIndex; |
| 609 | if ($^V gt v5.003) { # avoid bug in perl up to 5.003_05 | |
| 610 | my $idx; | my $idx; |
| 611 | for $idx (@{$self->{inverted}->{$att}}) { | for $idx (@{$self->{inverted}->{$att}}) { |
| 612 | $idx->set($iattr, $value); | $idx->set($iattr, $value); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |