Don't write Windows EOLs in CoreList.(pm|pod) when updating them on Windows

1 files changed, 1 insertions, 0 deletions

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index de51cdee15..b5e2645e86 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);
 }