Merge pull request #1816 from metacpan/haarg/no-duplicate-provides

remove duplication of provides
metacpan · Nov 20, 2016 · 41cefae · 41cefae
2 parents d7001aa + 85e4eef
commit 41cefae
Showing 1 changed file with 12 additions and 14 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Release.pm b/lib/MetaCPAN/Web/Controller/Release.pm
@@ -190,20 +190,18 @@ sub _files_to_categories {
 
         if ( $f->{documentation} and @modules ) {
             push @{ $ret->{modules} }, $f;
-            for my $m (@modules) {
-                push @{ $ret->{provides} },
-                    map +{
-                    %info,
-                    package    => $_->{name},
-                    authorized => $_->{authorized}
-                    },
-                    grep {
-                            defined $_->{name}
-                        and $_->{name} ne $f->{documentation}
-                        and $_->{indexed}
-                        and $_->{authorized}
-                    } @modules;
-            }
+            push @{ $ret->{provides} },
+                map +{
+                %info,
+                package    => $_->{name},
+                authorized => $_->{authorized}
+                },
+                grep {
+                        defined $_->{name}
+                    and $_->{name} ne $f->{documentation}
+                    and $_->{indexed}
+                    and $_->{authorized}
+                } @modules;
         }
         elsif (@modules) {
             push @{ $ret->{provides} },