From a6dafe881caa1d55b56e59cafccc6ba9b81a70c8 Mon Sep 17 00:00:00 2001
From: david <david@e0a8ed71-7df4-0310-8962-fdc924857419>
Date: Fri, 16 Aug 2013 17:08:55 +0000
Subject: [PATCH] Put test filehandles into binary mode.

---
 ncat/test/ncat-test.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ncat/test/ncat-test.pl b/ncat/test/ncat-test.pl
index f2261114e..bd0e3436d 100755
--- a/ncat/test/ncat-test.pl
+++ b/ncat/test/ncat-test.pl
@@ -47,6 +47,9 @@ sub ncat {
 	if (!defined $pid) {
 		die "open3 failed";
 	}
+	binmode *IN;
+	binmode *OUT;
+	binmode *ERR;
 	return ($pid, *OUT, *IN, *ERR);
 }
 
@@ -746,10 +749,12 @@ server_client_test_all "Messages are logged to output file",
 	sleep 1;
 	close($c_in);
 	open(FH, "server.log");
+	binmode FH;
 	my $contents = join("", <FH>);
 	close(FH);
 	$contents eq "abc\ndef\n" or die "Server logged " . d($contents);
 	open(FH, "client.log");
+	binmode FH;
 	$contents = join("", <FH>);
 	close(FH);
 	$contents eq "abc\ndef\n" or die "Client logged " . d($contents);