/[wait]/trunk/lib/WAIT/InvertedIndexOld.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/InvertedIndexOld.pm

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

revision 88 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 89 by dpavlin, Mon May 24 20:57:08 2004 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
2  # $Basename: InvertedIndex.pm $  # $Basename: InvertedIndex.pm $
3  # $Revision: 1.2 $  # $Revision: 1.1 $
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 27 18:39:21 2002  # Last Modified On: Sat Nov 11 14:36:39 2000
8  # Language        : CPerl  # Language        : CPerl
9  #  #
10  # (C) Copyright 1996-2000, Ulrich Pfeifer  # (C) Copyright 1996-2000, Ulrich Pfeifer
# Line 605  sub search_raw { Line 605  sub search_raw {
605  sub set {  sub set {
606    my ($self, $attr, $value) = @_;    my ($self, $attr, $value) = @_;
607    
608    die "No such index attribute: '$attr'" unless $attr eq 'top';    die "No such indexy attribute: '$attr'" unless $attr eq 'top';
609    
610    return delete $self->{reorg} if $value == 0;    return delete $self->{reorg} if $value == 0;
611    
Legend:
Removed from v.88  
changed lines
  Added in v.89
  ViewVC Help
Powered by ViewVC 1.1.26