Add modules to file in reliable order

to solve occasional test failure. Any order makes as much sense as no order.
metacpan · Sep 26, 2014 · 1120d08 · 1120d08 · oalders · Sep 26, 2014
1 parent 9d3af98
commit 1120d08
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -327,7 +327,8 @@ sub import_tarball {
     my @modules;
 
     if ( my %provides = %{ $meta->provides } ) {
-        while ( my ( $module, $data ) = each %provides ) {
+        foreach my $module ( sort keys %provides ) {
+            my $data = $provides{$module};
             my $path = $data->{file};
 
            # Obey no_index and take the shortest path if multiple files match.