Check if distribution exists before creating

This is fixing the flood of errors exposed by the Log4Perl change.

Author: mickeyn

lib/MetaCPAN/Model/Release.pm

@@ -122,6 +122,7 @@ has status => (
     isa => Str,
 );
 
+has es   => ( is => 'ro' );
 has bulk => ( is => 'ro' );
 
 =head2 run
@@ -221,11 +222,16 @@ sub _build_document {
     $document
         = $self->index->type('release')->put( $document, { refresh => 1 } );
 
-    # create will die if the document already exists
-    eval {
+    # create distribution if doesn't exist
+    my $dist_count = $self->es->count(
+        index => 'cpan',
+        type  => 'distribution',
+        body  => { query => { term => { name => $self->distribution } } },
+    );
+    if ( !$dist_count->{count} ) {
         $self->index->type('distribution')
             ->put( { name => $self->distribution }, { create => 1 } );
-    };
+    }
     return $document;
 }
 

lib/MetaCPAN/Script/Release.pm

@@ -228,6 +228,7 @@ sub _get_release_model {
     my $d = CPAN::DistnameInfo->new($archive_path);
 
     my $model = MetaCPAN::Model::Release->new(
+        es       => $self->es,
         bulk     => $bulk,
         distinfo => $d,
         file     => $archive_path,