Correct change 23437 - as Config isn't imported, need to use a fully

qualified package

p4raw-id: //depot/perl@23441

8 files changed, 8 insertions, 15 deletions

diff --git a/ext/B/t/f_map.t b/ext/B/t/f_map.t
index dd5b732a1d..449d73006c 100644
--- a/ext/B/t/f_map.t
+++ b/ext/B/t/f_map.t
@@ -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";
diff --git a/ext/B/t/f_sort.t b/ext/B/t/f_sort.t
index 8abd0705d8..7d60173e61 100644
--- a/ext/B/t/f_sort.t
+++ b/ext/B/t/f_sort.t
@@ -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";
diff --git a/ext/B/t/optree_check.t b/ext/B/t/optree_check.t
index e9f6d1e8bf..6150cce07d 100644
--- a/ext/B/t/optree_check.t
+++ b/ext/B/t/optree_check.t
@@ -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';
 }
diff --git a/ext/B/t/optree_concise.t b/ext/B/t/optree_concise.t
index cecc572dd3..efd351a6ad 100644
--- a/ext/B/t/optree_concise.t
+++ b/ext/B/t/optree_concise.t
@@ -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';
 }
diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t
index cfdbeafb4e..576a890972 100644
--- a/ext/B/t/optree_samples.t
+++ b/ext/B/t/optree_samples.t
@@ -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";
diff --git a/ext/B/t/optree_sort.t b/ext/B/t/optree_sort.t
index 36ddc544b2..6b59f1547b 100644
--- a/ext/B/t/optree_sort.t
+++ b/ext/B/t/optree_sort.t
@@ -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';
 }
diff --git a/ext/B/t/optree_specials.t b/ext/B/t/optree_specials.t
index b9eec167cf..8b875aa0b4 100644
--- a/ext/B/t/optree_specials.t
+++ b/ext/B/t/optree_specials.t
@@ -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';
 }
diff --git a/ext/B/t/optree_varinit.t b/ext/B/t/optree_varinit.t
index f70854ec09..824bcb072b 100644
--- a/ext/B/t/optree_varinit.t
+++ b/ext/B/t/optree_varinit.t
@@ -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;