summaryrefslogtreecommitdiff
path: root/t/io/crlf.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2004-06-18 08:59:01 +0000
committerNicholas Clark <nick@ccl4.org>2004-06-18 08:59:01 +0000
commit238210bb9f683911a1cbe4d2e8f1925ecfb2e350 (patch)
tree4c18191508c07dc6f856911ea6d2bdf9addda580 /t/io/crlf.t
parent8575f5e6a8b0b4cbc4c8e4c30f15a255a153e404 (diff)
downloadperl-238210bb9f683911a1cbe4d2e8f1925ecfb2e350.tar.gz
Need to skip test 7 if perl built without the PerlIO::scalar extension
p4raw-id: //depot/perl@22947
Diffstat (limited to 't/io/crlf.t')
-rw-r--r--t/io/crlf.t3
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";