This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct detection of absent modules. Based on
authorAndy Dougherty <doughera@lafayette.edu>
Thu, 24 Jun 2004 15:09:47 +0000 (11:09 -0400)
committerNicholas Clark <nick@ccl4.org>
Fri, 25 Jun 2004 22:19:51 +0000 (22:19 +0000)
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

13 files changed:
ext/Devel/PPPort/t/test.t
ext/PerlIO/t/scalar.t
ext/PerlIO/t/via.t
ext/threads/shared/t/disabled.t
lib/DB.t
lib/Dumpvalue.t
lib/PerlIO/via/t/QuotedPrint.t
lib/Tie/RefHash.t
lib/autouse.t
lib/dumpvar.t
lib/h2xs.t
lib/overload.t
t/io/crlf.t

index 469bd87..aff8630 100644 (file)
@@ -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;
     }
index a4c4799..4021d43 100644 (file)
@@ -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;
     }
index 0d819df..7d46f40 100644 (file)
@@ -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;
     }
index 1add2b8..f3e90a7 100644 (file)
@@ -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;
     }
index 7e809be..f665291 100644 (file)
--- a/lib/DB.t
+++ b/lib/DB.t
@@ -4,7 +4,7 @@ BEGIN {
         chdir 't' if -d 't';
         @INC = '../lib';
        require Config;
-       if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+       if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
                print "1..0 # Skip -- Perl configured without List::Util module\n";
                exit 0;
        }
index 0158304..b22b86d 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
            exit 0;
        }
        require Config;
-       if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+       if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
            print "1..0 # Skip -- Perl configured without List::Util module\n";
            exit 0;
        }
index 4774af3..baf0d1f 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {                         # Magic Perl CORE pragma
         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;
     }
index a855446..c0fad91 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
     @INC = '.'; 
     push @INC, '../lib';
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bData::Dumper\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bData/Dumper\b!) ){
        print "1..0 # Skip -- Perl configured without Data::Dumper module\n";
        exit 0;
     }
index cc7c41a..2c52f42 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
        print "1..0 # Skip -- Perl configured without List::Util module\n";
        exit 0;
     }
index eb0fe31..843ba1c 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
        print "1..0 # Skip -- Perl configured without List::Util module\n";
        exit 0;
     }
index 5485323..e6c75c0 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
     @INC = '../lib';
     # FIXME (or rather FIXh2xs)
     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;
     }
index e21e60b..4184e23 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
        print "1..0 # Skip -- Perl configured without List::Util module\n";
        exit 0;
     }
index f59b245..be51400 100644 (file)
@@ -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;