diff options
| -rw-r--r-- | META.yml | 2 | ||||
| -rw-r--r-- | Porting/makemeta | 10 |
2 files changed, 5 insertions, 7 deletions
@@ -53,7 +53,6 @@ no_index: - dist/XSLoader - lib/version - win32 - file: - dist/IO/ChangeLog - dist/IO/hints/sco.pl @@ -106,4 +105,3 @@ no_index: - Porting/Maintainers.pm - Porting/perldelta_template.pod - TestInit.pm - diff --git a/Porting/makemeta b/Porting/makemeta index d22c635468..e0e1ef72ad 100644 --- a/Porting/makemeta +++ b/Porting/makemeta @@ -31,7 +31,7 @@ my @dirs = ('cpan', 'win32', grep { -d $_ && $_ !~ /^cpan/ } map { get_module_ my %dirs; @dirs{@dirs} = (); -my $files = join '', map { " - $_\n" } +@files = map { " - $_" } grep { my $d = $_; while(($d = dirname($d)) ne "."){ @@ -45,10 +45,11 @@ my $files = join '', map { " - $_\n" } } sort { lc $a cmp lc $b } @files; -my $dirs = join '', map { " - $_\n" } sort { lc $a cmp lc $b } @dirs; +@dirs = map { " - $_" } sort { lc $a cmp lc $b } @dirs; my $fh = safer_open($new_file); +local $" = "\n"; print $fh <<"EOI"; name: perl version: $] @@ -64,11 +65,10 @@ distribution_type: core generated_by: $0 no_index: directory: -$dirs +@dirs file: -$files +@files EOI safer_close($fh); rename_if_different($new_file, $file); - |