External: cygwin script (role) returned structure fix

metacpan · May 17, 2017 · 8f64482 · 8f64482
1 parent ef51fc2
commit 8f64482
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Script/Role/External/Cygwin.pm b/lib/MetaCPAN/Script/Role/External/Cygwin.pm
@@ -58,12 +58,15 @@ MIRROR: {
                 map s/\n+/ /gr, split /^([a-z]+): /m, $desc;
             $attr{category} = [ split / /, $attr{category} ];
             next if grep /^(Debug|_obsolete)$/, @{ $attr{category} };
-            $ret->{ $pkg =~ s/^perl-//r } = $pkg;
+            $ret->{dist}{ $pkg =~ s/^perl-//r } = $pkg;
         }
     }
     $self->ua->timeout($timeout);
 
-    log_debug { sprintf "Found %d cygwin-CPAN packages", scalar keys %$ret };
+    log_debug {
+        sprintf "Found %d cygwin-CPAN packages",
+            scalar keys %{ $ret->{dist} }
+    };
 
     return $ret;
 }