Repository: lucy Updated Branches: refs/heads/master be1b383bf -> 829c6d0a4
Hash_Sum removal broke LucyX::Search::Filter Use the object address directly instead of calling Hash_Sum. Project: http://git-wip-us.apache.org/repos/asf/lucy/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/829c6d0a Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/829c6d0a Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/829c6d0a Branch: refs/heads/master Commit: 829c6d0a4244035123b921e3bb3d3faa456c8c5b Parents: df1d915 Author: Nick Wellnhofer <[email protected]> Authored: Mon May 4 17:28:15 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Mon May 4 18:45:56 2015 +0200 ---------------------------------------------------------------------- perl/lib/LucyX/Search/Filter.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy/blob/829c6d0a/perl/lib/LucyX/Search/Filter.pm ---------------------------------------------------------------------- diff --git a/perl/lib/LucyX/Search/Filter.pm b/perl/lib/LucyX/Search/Filter.pm index 8de55db..e070479 100644 --- a/perl/lib/LucyX/Search/Filter.pm +++ b/perl/lib/LucyX/Search/Filter.pm @@ -129,7 +129,7 @@ sub _store_cached_bits { my ( $self, $seg_reader, $bits ) = @_; my $pair = { seg_reader => $seg_reader, bits => $bits }; weaken( $pair->{seg_reader} ); - $cached_bits{$$self}{ $seg_reader->hash_sum } = $pair; + $cached_bits{$$self}{$$seg_reader} = $pair; } # Retrieve a cached BitVector associated with a particular SegReader. As a @@ -140,15 +140,15 @@ sub _fetch_cached_bits { my $cached_bits = $cached_bits{$$self}; # Sweep. - while ( my ( $hash_sum, $pair ) = each %$cached_bits ) { + while ( my ( $addr, $pair ) = each %$cached_bits ) { # If weak ref has decomposed into undef, SegReader is gone... so # delete. next if defined $pair->{seg_reader}; - delete $cached_bits->{$hash_sum}; + delete $cached_bits->{$addr}; } # Fetch. - my $pair = $cached_bits->{ $seg_reader->hash_sum }; + my $pair = $cached_bits->{$$seg_reader}; return $pair->{bits} if defined $pair; return; }
