From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 May 2003 19:52:23 +0000 (+0000)
Subject: Further -Uuseperlio tweaking.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67e51b56f7d37807e6bfe303642911618f0d975c;p=p5sagit%2Fp5-mst-13.2.git

Further -Uuseperlio tweaking.

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

diff --git a/ext/Encode/t/Unicode.t b/ext/Encode/t/Unicode.t
index 3329d7c..882d700 100644
--- a/ext/Encode/t/Unicode.t
+++ b/ext/Encode/t/Unicode.t
@@ -116,13 +116,16 @@ my @file = sort grep {/\.utf$/o} readdir $dh;
 closedir $dh;
 for my $file (@file){
     my $path = File::Spec->catfile($dir, $file);
-+    open my $fh, '<', $path or die "$path:$!";
+    open my $fh, '<', $path or die "$path:$!";
+    my $content;
     if (PerlIO::Layer->find('perlio')){
        binmode $fh => ':utf8';
-    }else{
+       $content = join('' => <$fh>);
+    }else{ # ugh!
        binmode $fh;
+       $content = join('' => <$fh>);
+       Encode::_utf8_on($content)
     }
-    my $content = join('' => <$fh>);
     close $fh;
     is(decode("UTF-7", encode("UTF-7", $content)), $content, 
        "UTF-7 RT:$file");