view release on metacpan or  search on metacpan

maint/mkmanifest  view on Meta::CPAN

unless ( exists $manifest{$MANIFEST} ) {
    $manifest{$MANIFEST} = "This list of files";
    warn "Adding to $MANIFEST: $MANIFEST\n";
}

for my $file ( split qq/\0/, qx/git ls-files -z/ ) {
    next if exists $manifest{$file};
    next if $file eq q[README.pod];
    warn "Adding to $MANIFEST: $file\n";
    $manifest{$file} = undef;
}

rename $MANIFEST, "$MANIFEST.bak" if -f $MANIFEST;
open my $manifh, '>', $MANIFEST or die "Can't open $MANIFEST: $!";
binmode $manifh, ':raw';

for my $file ( sort keys %manifest ) {
    my $tabs = ( 5 - ( length($file) + 1 ) / 8 );
    $tabs = 1 if $tabs < 1;
    my $text = $manifest{$file};