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 /ext | |
| 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 'ext')
| -rw-r--r-- | ext/Devel/PPPort/t/test.t | 2 | ||||
| -rw-r--r-- | ext/PerlIO/t/scalar.t | 2 | ||||
| -rw-r--r-- | ext/PerlIO/t/via.t | 2 | ||||
| -rw-r--r-- | ext/threads/shared/t/disabled.t | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel/PPPort/t/test.t b/ext/Devel/PPPort/t/test.t index 469bd87a69..aff863034e 100644 --- a/ext/Devel/PPPort/t/test.t +++ b/ext/Devel/PPPort/t/test.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib' if -d '../lib'; require Config; - if (($Config::Config{'extensions'} !~ /\bDevel::PPPort\b/) ){ + if (($Config::Config{'extensions'} !~ m!\bDevel/PPPort\b!) ){ print "1..0 # Skip -- Perl configured without Devel::PPPort module\n"; exit 0; } diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t index a4c479924b..4021d431a2 100644 --- a/ext/PerlIO/t/scalar.t +++ b/ext/PerlIO/t/scalar.t @@ -8,7 +8,7 @@ BEGIN { exit 0; } require Config; - if (($Config::Config{'extensions'} !~ /\bPerlIO::scalar\b/) ){ + if (($Config::Config{'extensions'} !~ m!\bPerlIO/scalar\b!) ){ print "1..0 # Skip -- Perl configured without PerlIO::scalar module\n"; exit 0; } diff --git a/ext/PerlIO/t/via.t b/ext/PerlIO/t/via.t index 0d819dfef3..7d46f40dc8 100644 --- a/ext/PerlIO/t/via.t +++ b/ext/PerlIO/t/via.t @@ -8,7 +8,7 @@ BEGIN { exit 0; } require Config; - if (($Config::Config{'extensions'} !~ /\bPerlIO::via\b/) ){ + if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){ print "1..0 # Skip -- Perl configured without PerlIO::via module\n"; exit 0; } diff --git a/ext/threads/shared/t/disabled.t b/ext/threads/shared/t/disabled.t index 1add2b89ee..f3e90a7849 100644 --- a/ext/threads/shared/t/disabled.t +++ b/ext/threads/shared/t/disabled.t @@ -6,7 +6,7 @@ BEGIN { chdir 't'; @INC = '../lib'; require Config; - if (($Config::Config{'extensions'} !~ /\bthreads::shared\b/) ){ + if (($Config::Config{'extensions'} !~ m!\bthreads/shared\b!) ){ print "1..0 # Skip -- Perl configured without threads::shared module\n"; exit 0; } |