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
