take pumpking data from cpan

metacpan · Apr 27, 2024 · fe86950 · fe86950
1 parent 091a5fe
commit fe86950
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 56 deletions.
diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -433,13 +433,11 @@ sub _build_perms {
         close $fh;
     }
 
-    # we would like this data to come from CPAN directly eventually
-    #my $pumpking_file = $self->cpan->child(qw(modules 07pumpkings.txt));
-    my $pumpking_file
-        = path(__FILE__)->parent->child(qw(Release 07pumpkings.txt));
+    my $pumpking_file = $self->cpan->child(qw(authors 08pumpkings.txt.gz));
     if ( -e $pumpking_file ) {
         log_debug { "parsing ", $pumpking_file };
-        my $fh = $pumpking_file->openr;
+
+        my $fh = $pumpking_file->openr(':gzip');
         while ( my $line = <$fh> ) {
             chomp $line;
             push( @{ $authors{perl} ||= [] }, $line );

diff --git a/lib/MetaCPAN/Script/Release/07pumpkings.txt b/lib/MetaCPAN/Script/Release/07pumpkings.txt