/[wait]/trunk/lib/WAIT/Table.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Table.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

cvs-head/lib/WAIT/Table.pm revision 77 by laperla, Mon Apr 8 21:00:08 2002 UTC trunk/lib/WAIT/Table.pm revision 89 by dpavlin, Mon May 24 20:57:08 2004 UTC
# Line 603  sub set { Line 603  sub set {
603    defined $self->{db} or $self->open;    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      require WAIT::InvertedIndex;
607        if ($^V gt v5.003) {         # avoid bug in perl up to 5.003_05
608        my $idx;        my $idx;
609        for $idx (@{$self->{inverted}->{$att}}) {        for $idx (@{$self->{inverted}->{$att}}) {
610          $idx->set($iattr, $value);          $idx->set($iattr, $value);
Legend:
Removed from v.77  
changed lines
  Added in v.89
  ViewVC Help
Powered by ViewVC 1.1.26