From 6daf48fb85c99f11cc508c1d7f1add829f327ad1 Mon Sep 17 00:00:00 2001 From: Edmund von der Burg Date: Thu, 19 May 2011 18:41:31 +0100 Subject: buf fix for writing lines --- perl-external/bin/module-manage.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-external') diff --git a/perl-external/bin/module-manage.pl b/perl-external/bin/module-manage.pl index 1ccef8875..17c0db8da 100755 --- a/perl-external/bin/module-manage.pl +++ b/perl-external/bin/module-manage.pl @@ -71,7 +71,7 @@ sub index_minicpan { # Go through all files in minicpan and add to files.txt my @files = sort map { s{^.*?(/authors/id/.*)$}{$1}; $_ } split '\s', `find $minicpan/authors -type f`; - write_file( $file_list, @files ); + write_file( $file_list, map { "$_\n" } @files ); # work out which ones are not currently in packages my @local_packages_lines = read_packages_txt_gz($local_packages_file_gz); -- cgit v1.2.3