commit: 6b7ffdd0fd862a75f37a44326b85446beba07b01 Author: Michael Mair-Keimberger (asterix) <m.mairkeimberger <AT> gmail <DOT> com> AuthorDate: Wed Sep 7 17:55:55 2016 +0000 Commit: Patrice Clement <monsieurp <AT> gentoo <DOT> org> CommitDate: Fri Sep 9 13:27:40 2016 +0000 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=6b7ffdd0
dev-perl/MongoDB: remove unused patch. Signed-off-by: Patrice Clement <monsieurp <AT> gentoo.org> dev-perl/MongoDB/files/gridfs-perl-patch.diff | 39 --------------------------- 1 file changed, 39 deletions(-) diff --git a/dev-perl/MongoDB/files/gridfs-perl-patch.diff b/dev-perl/MongoDB/files/gridfs-perl-patch.diff deleted file mode 100644 index 3e9c6c9..00000000 --- a/dev-perl/MongoDB/files/gridfs-perl-patch.diff +++ /dev/null @@ -1,39 +0,0 @@ -diff --git a/lib/MongoDB/GridFS.pm b/lib/MongoDB/GridFS.pm -index f9a2421..8a9c4a7 100644 ---- a/lib/MongoDB/GridFS.pm -+++ b/lib/MongoDB/GridFS.pm -@@ -119,13 +119,19 @@ sub BUILD { - my ($self) = @_; - - # check for the required indexs in the system.indexes colleciton -- my $count = $self->_database->get_collection('system.indexes')->count({filename => 1}); -- $count += $self->_database->get_collection('system.indexes')->count({files_id => 1, n => 1}); -- -- # if we dont have the required indexes, create them now. -- if ($count < 2){ -- $self->_ensure_indexes(); -+ my @files_idx = $self->files->get_indexes; -+ my @matches = grep { $_->{key}->{filename} } @files_idx; -+ if (scalar @matches == 0) { -+ $self->files->ensure_index(Tie::IxHash->new(filename => 1), {"safe" => 1}); -+ } -+ -+ my @chunks_idx = $self->chunks->get_indexes; -+ @matches = grep { (defined $_->{key}->{files_id} && defined $_->{key}->{i} && -+ $_->{key}->{files_id} == 1 && $_->{key}->{i} == 1)} @chunks_idx; -+ if (scalar @matches == 0) { -+ $self->chunks->ensure_index(Tie::IxHash->new(files_id => 1, n => 1), {"safe" => 1}); - } -+ - } - - -@@ -134,7 +140,7 @@ sub _ensure_indexes { - - # ensure the necessary index is present (this may be first usage) - $self->files->ensure_index(Tie::IxHash->new(filename => 1), {"safe" => 1}); -- $self->chunks->ensure_index(Tie::IxHash->new(files_id => 1, n => 1), {"safe" => 1, "unique" => 1}); -+ $self->chunks->ensure_index(Tie::IxHash->new(files_id => 1, n => 1), {"safe" => 1}); - } - - =head1 METHODS