From fe86950cdf0f3051b2897a76b6ec3289f0b3ecda Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sat, 27 Apr 2024 15:15:50 +0100
Subject: [PATCH] take pumpking data from cpan

---
 lib/MetaCPAN/Script/Release.pm              |  8 ++--
 lib/MetaCPAN/Script/Release/07pumpkings.txt | 51 ---------------------
 2 files changed, 3 insertions(+), 56 deletions(-)
 delete mode 100644 lib/MetaCPAN/Script/Release/07pumpkings.txt

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