diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2004-06-24 11:09:47 -0400 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-06-25 22:19:51 +0000 |
| commit | 98641f606c65e71cca89f9a694e2796b5a21cbd8 (patch) | |
| tree | c9607b6ebb0eb995e8cec0160a98bb5ab6362acf /t/io | |
| parent | 429b060a3290b7ecf98534144fcaf0fb46b2afe3 (diff) | |
| download | perl-98641f606c65e71cca89f9a694e2796b5a21cbd8.tar.gz | |
Correct detection of absent modules. Based on
Subject: [PATCH] Config{extensions} uses filesystem names as extensions
Message-ID: <Pine.SOL.4.58.0406241505530.14039@maxwell.phys.lafayette.edu>
with improvements from Marcus Holland-Moritz
p4raw-id: //depot/perl@22998
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/crlf.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/crlf.t b/t/io/crlf.t index f59b245d51..be514003a5 100644 --- a/t/io/crlf.t +++ b/t/io/crlf.t @@ -34,7 +34,7 @@ if (find PerlIO::Layer 'perlio') { { skip("miniperl can't rely on loading PerlIO::scalar") if $ENV{PERL_CORE_MINITEST}; - skip("no PerlIO::scalar") unless $Config{extensions} =~ /PerlIO::scalar/; + 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; |