This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct change 23437 - as Config isn't imported, need to use a fully
authorNicholas Clark <nick@ccl4.org>
Sun, 31 Oct 2004 10:41:17 +0000 (10:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 31 Oct 2004 10:41:17 +0000 (10:41 +0000)
qualified package

p4raw-id: //depot/perl@23441

ext/B/t/f_map.t
ext/B/t/f_sort.t
ext/B/t/optree_check.t
ext/B/t/optree_concise.t
ext/B/t/optree_samples.t
ext/B/t/optree_sort.t
ext/B/t/optree_specials.t
ext/B/t/optree_varinit.t

index dd5b732..449d730 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     if (!$Config::Config{useperlio}) {
         print "1..0 # Skip -- need perlio to walk the optree\n";
index 8abd070..7d60173 100644 (file)
@@ -12,11 +12,10 @@ BEGIN {
         print "1..0 # Skip -- need perlio to walk the optree\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     if ($] < 5.009) {
         print "1..0 # Skip -- TODO - provide golden result regexps for 5.8\n";
index e9f6d1e..6150cce 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     require './test.pl';
 }
index cecc572..efd351a 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     require './test.pl';
 }
index cfdbeaf..576a890 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     if ($] < 5.009) {
         print "1..0 # Skip -- TODO - provide golden result regexps for 5.8\n";
index 36ddc54..6b59f15 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     require './test.pl';
 }
index b9eec16..8b875aa 100644 (file)
@@ -8,11 +8,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;
-
     }
     require './test.pl';
 }
index f70854e..824bcb0 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+    if ($Config::Config{'extensions'} !~ /\bData\/Dumper\b/) {
        print
            "1..0 # Skip: Data::Dumper was not built, needed by OptreeCheck\n";
        exit 0;