Merge pull request #1167 from metacpan/haarg/latest-only-purge-updates

latest - only purge dists being upgraded or downgraded
metacpan · Feb 23, 2024 · b9a7611 · b9a7611
2 parents 26d585d + b917b7a
commit b9a7611
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Script/Latest.pm b/lib/MetaCPAN/Script/Latest.pm
@@ -167,8 +167,6 @@ sub run {
                 eval { $p->package( $_->{name} ) }
                 } @{ $file_data->{module} };
 
-            push @modules_to_purge, @modules;
-
             # For each of the packages in this file...
             foreach my $module (@modules) {
 
@@ -204,9 +202,11 @@ sub run {
                         )
                         );
                     $upgrade{ $file_data->{distribution} } = $file_data;
+                    push @modules_to_purge, @modules;
                 }
                 elsif ( $file_data->{status} eq 'latest' ) {
                     $downgrade{ $file_data->{release} } = $file_data;
+                    push @modules_to_purge, @modules;
                 }
             }
         }