diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm index eda36e7e1..5b6344d4f 100644 --- 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 deleted file mode 100644 index 36c34afa0..000000000 --- a/lib/MetaCPAN/Script/Release/07pumpkings.txt +++ /dev/null @@ -1,51 +0,0 @@ -ABH -ABIGAIL -ANDYD -ARISTOTLE -ATOOMIC -AVAR -BINGOS -CHIPS -CORION -DAGOLDEN -DAPM -DOM -DOY -DROLSKY -EHERMAN -ETHER -EXODIST -FLORA -GBARR -GENEHACK -GSAR -HAARG -HVDS -HYDAHY -JESSE -JHI -LBROCARD -LEONT -LWALL -MICB -MIYAGAWA -MSTROUT -NEILB -NI-S -NWCLARK -PCM -PEVANS -RENEEB -RGARCIA -RJBS -SHAY -STEVAN -TIMB -TODDR -TOMHUKINS -TONYC -WOLFSAGE -XSAWYERX -YVES -ZAKAME -ZEFRAM