release - fix script

Author: mickeyn

bin/release.pl

@@ -87,8 +87,8 @@
 );
 
 # args
-my ( $age, $bulk_size, $detect_backpan, $force_authorized, $latest, $queue,
-    $skip, $status );
+my ( $age, $bulk_size, $detect_backpan, $force_authorized, $latest,
+     $queue, $skip, $status );
 GetOptions(
     "age=i"            => \$age,
     "bulk_size=i"      => \$bulk_size,
@@ -103,7 +103,7 @@
 
 # setup
 my $ua = ua();
-my $es = MetaCPAN::ES->new( type => "release" );
+my $es = MetaCPAN::ES->new( index => "release" );
 
 my $minion;
 $minion = minion() if $queue;
@@ -237,7 +237,7 @@ ($document)
 }
 
 sub _index_files ($files) {
-    my $es   = MetaCPAN::ES->new( type => "file" );
+    my $es   = MetaCPAN::ES->new( index => "file" );
     my $bulk = $es->bulk( size => $bulk_size );
 
     log_debug { 'Indexing ', scalar(@$files), ' files' };
@@ -252,6 +252,7 @@ ($files)
     }
 
     $bulk->flush;
+    $es->index_refresh unless $queue;
 }
 
 sub _detect_status ( $author, $archive ) {