diff options
| -rw-r--r-- | t/io/crlf.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/io/crlf.t b/t/io/crlf.t index d6f3fc3925..f59b245d51 100644 --- a/t/io/crlf.t +++ b/t/io/crlf.t @@ -34,7 +34,8 @@ if (find PerlIO::Layer 'perlio') { { skip("miniperl can't rely on loading PerlIO::scalar") if $ENV{PERL_CORE_MINITEST}; - eval 'PerlIO::scalar'; + skip("no PerlIO::scalar") unless $Config{extensions} =~ /PerlIO::scalar/; + require PerlIO::scalar; my $fcontents = join "", map {"$_\015\012"} "a".."zzz"; open my $fh, "<:crlf", \$fcontents; local $/ = "xxx"; |