diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-01-14 06:30:23 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-14 06:30:23 -0800 |
| commit | ef40a5dd8380ca9dcbf40ccf6f706a4b5e25bbc6 (patch) | |
| tree | f7ed92d71b7adf14164244123970948e84081a19 /t/io/utf8.t | |
| parent | 31cdb61fca6b4f8d02971b6cc47d80445117e18e (diff) | |
| download | perl-ef40a5dd8380ca9dcbf40ccf6f706a4b5e25bbc6.tar.gz | |
Get t/io/utf8.t working under PERL_UNICODE
Diffstat (limited to 't/io/utf8.t')
| -rw-r--r-- | t/io/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index c8f37dd6d4..acce07e900 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], |