File tree Expand file tree Collapse file tree 2 files changed +16
-0
lines changed Expand file tree Collapse file tree 2 files changed +16
-0
lines changed Original file line number Diff line number Diff line change @@ -95,6 +95,9 @@ $src_dir->child('bugs.tsv')->copy( $fakecpan_dir->child('bugs.tsv') );
95
95
$src_dir -> child(' mirrors.json' )
96
96
-> copy( $fakecpan_dir -> child(qw( indices mirrors.json) ) );
97
97
98
+ $src_dir -> child(' 08pumpkings.txt.gz' )
99
+ -> copy( $fakecpan_dir -> child(qw( authors 08pumpkings.txt.gz) ) );
100
+
98
101
write_find_ls($fakecpan_dir );
99
102
100
103
$server -> index_permissions;
Original file line number Diff line number Diff line change @@ -105,5 +105,18 @@ sub _write_06perms {
105
105
$modules_dir -> child(' 06perms.txt' )-> spew($content );
106
106
}
107
107
108
+ sub _write_08pumpkings {
109
+ my $self = shift ;
110
+
111
+ my @pumpkings = qw(
112
+ HAARG
113
+ ) ;
114
+
115
+ my $content = join ' ' , map " $_ \n " , @pumpkings ;
116
+
117
+ $self -> base_dir-> child(qw( authors 08pumpkings.txt.gz) )
118
+ -> spew( { binmode => ' :gzip' }, $content );
119
+ }
120
+
108
121
__PACKAGE__ -> meta-> make_immutable;
109
122
1;
You can’t perform that action at this time.
0 commit comments