diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-03-02 22:02:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-02 22:02:36 +0000 |
| commit | 43651d81392f71a2868d35b75782d354b0139c90 (patch) | |
| tree | 7867f13e33750fe244b05a78c9455989b9214006 /t/io/crlf.t | |
| parent | 9acd3e2cb8772b6eb8d3f739a8401e73420609ba (diff) | |
| download | perl-43651d81392f71a2868d35b75782d354b0139c90.tar.gz | |
Work on eliminating systematic failures on make minitest:
make minitest passes a -minitest flag to t/TEST
t/TEST sees this and sets $ENV{PERL_CORE_MINITEST}
Tests can choose to skip based on this.
(Other tactic is to make loading of Errno by %! happen at run time.)
p4raw-id: //depot/perl@22423
Diffstat (limited to 't/io/crlf.t')
| -rw-r--r-- | t/io/crlf.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/io/crlf.t b/t/io/crlf.t index 2ee7b83191..d6f3fc3925 100644 --- a/t/io/crlf.t +++ b/t/io/crlf.t @@ -32,9 +32,9 @@ if (find PerlIO::Layer 'perlio') { 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}; + eval 'PerlIO::scalar'; my $fcontents = join "", map {"$_\015\012"} "a".."zzz"; open my $fh, "<:crlf", \$fcontents; local $/ = "xxx"; |