view release on metacpan or  search on metacpan

maint/mkmanifest  view on Meta::CPAN

    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};
    $tabs = 0  unless $text;
    $text = "" unless defined $text;
    if ( $file =~ /\s/ ) {
        $file =~ s/([\\'])/\\$1/g;
        $file = "'$file'";
    }
    print $manifh $file, "\t" x $tabs, $text, "\n";
}