SKIP:
{
- eval 'use PerlIO::scalar';
- skip(q/miniperl cannnot load PerlIO::scalar/)
- if $@ =~ /dynamic loading not available/;
+ skip("miniperl can't rely on loading PerlIO::scalar")
+ if $ENV{PERL_CORE_MINITEST};
+ skip("no PerlIO::scalar") unless $Config{extensions} =~ m!\bPerlIO/scalar\b!;
+ require PerlIO::scalar;
my $fcontents = join "", map {"$_\015\012"} "a".."zzz";
open my $fh, "<:crlf", \$fcontents;
local $/ = "xxx";