6 unless (find PerlIO::Layer 'perlio') {
7 print "1..0 # Skip: not perlio\n";
16 $a = join("", map { chr } 0..255) x 10;
18 use MIME::QuotedPrint;
19 open(my $fh,">Via(MIME::QuotedPrint)", $tmp);
24 open(my $fh,"<Via(MIME::QuotedPrint)", $tmp);
25 { local $/; $b = <$fh> }
29 print "ok 3\n" if $a eq $b;