print "1..0 # Skip: EBCDIC\n";
exit 0;
}
+ unless (PerlIO::Layer->find('perlio')){
+ print "1..0 # Skip: PerlIO required\n";
+ exit 0;
+ }
$| = 1;
}
our $DEBUG = 0;
use Encode (":all");
-eval { require PerlIO::encoding };
-
{
no warnings;
@ARGV and $DEBUG = shift;
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);