From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 14 May 2006 12:27:19 +0000 (+0000)
Subject: TEST needs to binmode the file handle that is reading the TAP, else it
X-Git-Tag: accepted/trunk/20130322.191538~17647
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9c8d215a6f7e1098759dbf707ed95f4895bc227c;p=platform%2Fupstream%2Fperl.git

TEST needs to binmode the file handle that is reading the TAP, else it
can get killed if TEST's environment has made it default all opens to
UTF-8 but the TAP is not UTF-8.

p4raw-id: //depot/perl@28192
---

diff --git a/t/TEST b/t/TEST
index 39e889c..3e2fdf1 100755
--- a/t/TEST
+++ b/t/TEST
@@ -406,6 +406,11 @@ EOT
 	    open(RESULTS, $compile_cmd)
 		or print "can't compile '$compile_cmd': $!.\n";
 	}
+	# Our environment may force us to use UTF-8, but we can't be sure that
+	# anything we're reading from will be generating (well formed) UTF-8
+	# This may not be the best way - possibly we should unset ${^OPEN} up
+	# top?
+	binmode RESULTS;
 
 	my $failure;
 	my $next = 0;