proj/gentoo: Initial commit

This commit represents a new era for Gentoo:
Storing the gentoo-x86 tree in Git, as converted from CVS.

This commit is the start of the NEW history.
Any historical data is intended to be grafted onto this point.

Creation process:
1. Take final CVS checkout snapshot
2. Remove ALL ChangeLog* files
3. Transform all Manifests to thin
4. Remove empty Manifests
5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$
5.1. Do not touch files with -kb/-ko keyword flags.

Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>
X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests
X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project
X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration
X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn
X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts
X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration
X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging
X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed

1 files changed, 39 insertions, 0 deletions

diff --git a/dev-perl/MongoDB/files/gridfs-perl-patch.diff b/dev-perl/MongoDB/files/gridfs-perl-patch.diff
new file mode 100644
index 000000000000..3e9c6c9c4d83
--- /dev/null
+++ b/dev-perl/MongoDB/files/gridfs-perl-patch.diff
@@ -0,0 +1,39 @@
+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