Upgrade to Encode 1.90 (plus the one extra use lib in enc_module.t)

[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..9966ef8 100644 (file)
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@ -54,9 +54,10 @@ my %e =
      gb2312   => [ qw/euc-cn/],
     );
 
+$/ = "\x0a"; # may fix VMS problem for test #28 and #29
 
 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);