diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-06-18 08:59:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-06-18 08:59:01 +0000 |
| commit | 238210bb9f683911a1cbe4d2e8f1925ecfb2e350 (patch) | |
| tree | 4c18191508c07dc6f856911ea6d2bdf9addda580 /t/io | |
| parent | 8575f5e6a8b0b4cbc4c8e4c30f15a255a153e404 (diff) | |
| download | perl-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')
| -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"; |