ignore system indexes when deleting for testing

metacpan · Oct 27, 2024 · d6571ec · d6571ec
1 parent 8d40746
commit d6571ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Script/Mapping.pm b/lib/MetaCPAN/Script/Mapping.pm
@@ -240,7 +240,7 @@ sub delete_all {
         || $runtime_environment eq 'testing';
 
     if ($is_development) {
-        foreach my $name ( keys %{ $self->indices_info } ) {
+        foreach my $name ( grep !/\A\./, keys %{ $self->indices_info } ) {
             $self->_delete_index($name);
         }
     }