--- cvs-head/lib/WAIT/InvertedIndex.pm 2000/11/13 10:44:03 40 +++ cvs-head/lib/WAIT/InvertedIndex.pm 2001/12/31 14:00:22 51 @@ -4,7 +4,7 @@ # Author : Ulrich Pfeifer # Created On : Thu Aug 8 13:05:10 1996 # Last Modified By: Ulrich Pfeifer -# Last Modified On: Sun Nov 12 14:40:21 2000 +# Last Modified On: Mon Dec 31 14:30:05 2001 # Language : CPerl # # (C) Copyright 1996-2000, Ulrich Pfeifer @@ -421,13 +421,6 @@ &{$self->{func}}(@_); } -sub keys { - my $self = shift; - - defined $self->{db} or $self->open; - keys %{$self->{db}}; -} - sub search_prefix { my $self = shift; @@ -734,5 +727,12 @@ } } +sub keys { + my $self = shift; + + defined $self->{db} or $self->open; + keys %{$self->{db}}; +} + 1;