Note why switchF1.t and switchp.t do not use test.pl.

[perl5.git] / Porting / manisort

diff --git a/Porting/manisort b/Porting/manisort
index 1c02120..6cf7d92 100644 (file)
--- 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($!);
 }