keep readme generation from mangling newlines on windows

Perl-Critic · Apr 23, 2016 · 47fbee3 · 47fbee3
1 parent bdb491a
commit 47fbee3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -15,7 +15,9 @@ eval {
 
 	my $parser = Pod::Markdown->new;
 	open my $in,  "<", $pod;
+	binmode $in;
 	open my $out, ">", "README.md";
+	binmode $out;
 	if ($parser and $in and $out) {
 		$parser->parse_from_filehandle($in);
 		print $out $parser->as_markdown;