script/latest: support 'force update'

metacpan · Jun 9, 2016 · 049b797 · 049b797
1 parent 6d28864
commit 049b797
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Script/Latest.pm b/lib/MetaCPAN/Script/Latest.pm
@@ -31,6 +31,12 @@ has packages => (
     traits  => ['NoGetopt'],
 );
 
+has force => (
+    is      => 'ro',
+    isa     => Bool,
+    default => 0,
+);
+
 sub _build_packages {
     return Parse::CPAN::Packages::Fast->new(
         shift->cpan->file(qw(modules 02packages.details.txt.gz))->stringify );
@@ -153,7 +159,7 @@ sub run {
 
         # Don't reindex if already marked as latest.
         # This just means that it hasn't changed (query includes 'latest').
-        next if ( $data->{status} eq 'latest' );
+        next if ( !$self->force and $data->{status} eq 'latest' );
 
         $self->reindex( $bulk, $data, 'latest' );
     }
@@ -165,7 +171,8 @@ sub run {
         # but the old dist remains (with other packages).
         # This could also include bug fixes in our indexer, PAUSE, etc.
         next
-            if ( $upgrade{ $data->{distribution} }
+            if ( !$self->force
+            && $upgrade{ $data->{distribution} }
             && $upgrade{ $data->{distribution} }->{release} eq
             $data->{release} );
 
@@ -185,7 +192,6 @@ sub run {
 # Update the status for the release and all the files.
 sub reindex {
     my ( $self, $bulk, $source, $status ) = @_;
-    my $es = $self->es;
 
     # Update the status on the release.
     my $release = $self->index->type('release')->get(