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

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

revision 82 by ulpfr, Mon Apr 22 10:09:34 2002 UTC revision 83 by ulpfr, Sat Apr 27 16:15:31 2002 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: Sat Apr 20 16:56:29 2002  # Last Modified On: Mon Apr 22 16:52:01 2002
8  # Language        : CPerl  # Language        : CPerl
9  #  #
10  # (C) Copyright 1996-2002, Ulrich Pfeifer  # (C) Copyright 1996-2002, Ulrich Pfeifer
# Line 669  sub search_raw { Line 669  sub search_raw {
669  sub set {  sub set {
670    my ($self, $attr, $value) = @_;    my ($self, $attr, $value) = @_;
671    
672    die "No such indexy attribute: '$attr'" unless $attr eq 'top';    die "No such index attribute: '$attr'" unless $attr eq 'top';
673    
674    return delete $self->{reorg} if $value == 0;    return delete $self->{reorg} if $value == 0;
675    
Legend:
Removed from v.82  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26