From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 14 Jan 2014 14:30:23 +0000 (-0800)
Subject: Get t/io/utf8.t working under PERL_UNICODE
X-Git-Tag: v5.19.8~90
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/ef40a5dd8380ca9dcbf40ccf6f706a4b5e25bbc6?hp=31cdb61fca6b4f8d02971b6cc47d80445117e18e

Get t/io/utf8.t working under PERL_UNICODE
---

diff --git a/t/io/utf8.t b/t/io/utf8.t
index c8f37dd..acce07e 100644
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -392,7 +392,7 @@ is($failed, undef);
 # return values
 SKIP: {
     skip "no PerlIO::scalar on miniperl", 2, if is_miniperl();
-    open my $fh, "<",      \($buf = chr 255);
+    open my $fh, "<:raw",  \($buf = chr 255);
     open my $uh, "<:utf8", \($uuf = "\xc4\x80");
     for([$uh,chr 256], [$fh,chr 255]) {
 	is getc $$_[0], $$_[1],