/[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 23 by cvs2svn, Tue May 9 11:29:45 2000 UTC revision 24 by ulpfr, Sat Nov 11 17:21:28 2000 UTC
# Line 4  Line 4 
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
# Line 626  sub unpack { Line 626  sub unpack {
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;
# Line 652  sub close { Line 654  sub close {
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
Legend:
Removed from v.23  
changed lines
  Added in v.24
  ViewVC Help
Powered by ViewVC 1.1.26