/[wait]/cvs-head/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 /cvs-head/lib/WAIT/Table.pm

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

revision 76 by ulpfr, Wed Jan 23 13:16:05 2002 UTC revision 77 by laperla, Mon Apr 8 21:00:08 2002 UTC
# Line 597  sub set { Line 597  sub set {
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;
Legend:
Removed from v.76  
changed lines
  Added in v.77
  ViewVC Help
Powered by ViewVC 1.1.26