Initial commit. Ebuild inspired by the work of Mark "castiel" Burazin, herd review by Vladimir "Civil" Smirnov.

(Portage version: 2.2.15/cvs/Linux x86_64, signed Manifest commit with key 0xB5058F9A)

5 files changed, 98 insertions, 0 deletions

diff --git a/dev-perl/MongoDB/ChangeLog b/dev-perl/MongoDB/ChangeLog
new file mode 100644
index 000000000000..c270fd28bef0
--- /dev/null
+++ b/dev-perl/MongoDB/ChangeLog
@@ -0,0 +1,11 @@
+# ChangeLog for dev-perl/MongoDB
+# Copyright 1999-2015 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/MongoDB/ChangeLog,v 1.1 2015/01/20 14:32:34 chainsaw Exp $
+
+*MongoDB-0.701.4 (20 Jan 2015)
+
+  20 Jan 2015; Tony Vroon <chainsaw@gentoo.org> +MongoDB-0.701.4.ebuild,
+  +files/gridfs-perl-patch.diff, +metadata.xml:
+  Initial commit. Ebuild inspired by the work of Mark "castiel" Burazin, herd
+  review by Vladimir "Civil" Smirnov.
+
diff --git a/dev-perl/MongoDB/Manifest b/dev-perl/MongoDB/Manifest
new file mode 100644
index 000000000000..18bd0661edf3
--- /dev/null
+++ b/dev-perl/MongoDB/Manifest
@@ -0,0 +1,5 @@
+AUX gridfs-perl-patch.diff 1594 SHA256 5f5b08b8c28c226092346b198acfc21f9dd88179be4744c51893bac46b6059a8 SHA512 a09f347662c9c5b3bacec93bc9d1168a494de1c0886486fa95043fa091520a82955a7397d9ac215146ab6c1bd3339fce76bfefcedc3df7706b85c50e3e7c0889 WHIRLPOOL f4cfdc7c79d9c93a89ff2c14f2fb22c64269f345bac43839944accbcb59af68a08b1bc1b1c202cd4a8578c21e09d3258bd5be4bac6338ceb8ecbb6b40705b828
+DIST MongoDB-0.701.4.tar.gz 1465098 SHA256 1cb5e77449aab787abdb69df2dd98a721e243ca80500b88815090f44e9320813 SHA512 329da2bddecf33bb02fc04e3e2d62d7c3ca106fdcba01a2b604d3e5319ca57a03a20229764245e152d5dc6aa2e187459ae7fa96b564a975461c56545e71267c9 WHIRLPOOL c9547405da0896dbbadc803603b40138c7d4d72ed9df88bfbdb108038c9c61b4b1539c3fe4f93742e791d519a16ea836b192b8108c8b1419a96d4b841d665ec7
+EBUILD MongoDB-0.701.4.ebuild 579 SHA256 cbd9cc45813cb7e75bd57d623fe388ff343f8bc49fca03c8bb8b03b0f01882d8 SHA512 053b5bd5afdb21a36a91eef5794f9168c9f30089320a8f96e594e2944998d0d9521f4310eeb1e0c07bbd42273707a0d5ca5d9ab651cef53a975b3c3851462fc2 WHIRLPOOL d669680d74361829ee984f44ed43a1d62f2e3583dcae1db8760b9b74a4f512135038c41e2d953e6c73d310a831ad7cf24bdb6f752e21f9059bf42bfb1e2027c2
+MISC ChangeLog 387 SHA256 b2fbbf8ab98a15ec984a152573e9fe3a60e37c9cc22e3d56762f5adc32ae9202 SHA512 91d78dc6bf504f24950fb1843748beb3852a690ea0411470526abb52b524fa65f49bc4ec63263152502b25488a9b92d819014c1858a88b1fa23331b5d24b604d WHIRLPOOL eb6f48ccc13d52c1ef1eaa32bdbb2594e1fd5e327d1123006810e567b737a5a56f4fa41b1e7e5276c04e4d7b8005d71dec9b22cda3eae61cac0e2cbbc2575f6a
+MISC metadata.xml 398 SHA256 bed423cd7bcd86dfab9772c716578f847862d033b024319b6829c240ccfe415e SHA512 78a07d4622defb7d08b5d4102b75408dbf1c2812f925d3dc636b4d7fbb47b8cd7c74fb084912c8da1dd325541cda49909c01066c80c9292d2def506d0ed7ff71 WHIRLPOOL 7ee62327527a87b67ee7b09e7563f08c82f72c9f1e85ecda5ef11beaacbe0aebab72d674bef08fd23ff8258549749e79c383fd834508bef380434959a3851051
diff --git a/dev-perl/MongoDB/MongoDB-0.701.4.ebuild b/dev-perl/MongoDB/MongoDB-0.701.4.ebuild
new file mode 100644
index 000000000000..f9ff983ff8c9
--- /dev/null
+++ b/dev-perl/MongoDB/MongoDB-0.701.4.ebuild
@@ -0,0 +1,30 @@
+# Copyright 1999-2015 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/MongoDB/MongoDB-0.701.4.ebuild,v 1.1 2015/01/20 14:32:34 chainsaw Exp $
+
+EAPI="5"
+MODULE_AUTHOR="FRIEDO"
+
+inherit perl-module
+
+DESCRIPTION="A Mongo Driver for Perl"
+
+SLOT="0"
+KEYWORDS="~amd64"
+
+DEPEND="dev-perl/DateTime
+	dev-perl/Tie-IxHash
+	dev-perl/Data-Types
+	dev-perl/DateTime-Tiny
+	dev-perl/Class-Method-Modifiers
+	dev-perl/boolean
+	dev-perl/Moose
+	dev-perl/File-Slurp
+	dev-perl/Try-Tiny
+	dev-perl/Module-Install
+	dev-perl/JSON
+	virtual/perl-ExtUtils-MakeMaker"
+
+src_prepare() {
+	epatch "${FILESDIR}"/gridfs-perl-patch.diff
+}
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
diff --git a/dev-perl/MongoDB/metadata.xml b/dev-perl/MongoDB/metadata.xml
new file mode 100644
index 000000000000..3955b0702683
--- /dev/null
+++ b/dev-perl/MongoDB/metadata.xml
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+  <herd>perl</herd>
+  <maintainer>
+    <email>chainsaw@gentoo.org</email>
+    <name>Tony Vroon</name>
+  </maintainer>
+  <upstream>
+    <remote-id type="cpan">DateTime-Tiny</remote-id>
+    <remote-id type="cpan-module">DateTime::Tiny</remote-id>
+  </upstream>
+</pkgmetadata>