In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c89c9a063a968f149d82a7296cb8bda9106a0a18?hp=1ce5ed3e6aacffd3fcef4a8782ab6818ea7b15db>
- Log ----------------------------------------------------------------- commit c89c9a063a968f149d82a7296cb8bda9106a0a18 Author: Steve Hay <[email protected]> Date: Thu Aug 9 13:54:24 2012 +0100 Don't write Windows EOLs in CoreList.(pm|pod) when updating them on Windows M Porting/corelist.pl commit b14c545196ee21973eca822bd3321b1fa49179fc Author: Steve Hay <[email protected]> Date: Thu Aug 9 13:54:10 2012 +0100 Don't write Windows EOLs in MANIFEST when sorting it on Windows M Porting/manisort ----------------------------------------------------------------------- Summary of changes: Porting/corelist.pl | 1 + Porting/manisort | 1 + 2 files changed, 2 insertions(+), 0 deletions(-) diff --git a/Porting/corelist.pl b/Porting/corelist.pl index de51cde..b5e2645 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -290,6 +290,7 @@ sub write_corelist { my $content = shift; my $filename = shift; open (my $clfh, ">", $filename); + binmode $clfh; print $clfh $content; close($clfh); } diff --git a/Porting/manisort b/Porting/manisort index 1c02120..6cf7d92 100644 --- a/Porting/manisort +++ b/Porting/manisort @@ -50,6 +50,7 @@ for (my $ii = 0; $ii < $#manifest; $ii++) { if (defined($outfile)) { open(my $OUT, '>', $outfile) or die("Can't open output file '$outfile': $!"); + binmode($OUT); print($OUT join("\n", @sorted), "\n"); close($OUT) or die($!); } -- Perl5 Master Repository
