diff options
author | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 18:41:31 +0100 |
---|---|---|
committer | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 18:41:31 +0100 |
commit | 6daf48fb85c99f11cc508c1d7f1add829f327ad1 (patch) | |
tree | 1680965ca66b1210f873e0535c3e1da14582f0a9 | |
parent | 18079bb96639037112a736a1fd1300fc24e21d8d (diff) |
buf fix for writing lines
-rwxr-xr-x | perl-external/bin/module-manage.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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); |