another case of enabling binmode() where it should not be: if the

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / perlio.t

diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t
index 5c628cf..e210b2f 100644 (file)
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@ -56,7 +56,7 @@ my %e =
 
 
 for my $src(sort keys %e) {
-    my $ufile = File::Spec->catfile($dir,"$src.ref");
+    my $ufile = File::Spec->catfile($dir,"$src.utf");
     open my $fh, "<:utf8", $ufile or die "$ufile : $!";
     my @uline = <$fh>;
     my $utext = join('' => @uline);