Skip test for Module::Load::Conditional that appears to be setting

$^X, but not getting it right.  I'll wait to see if Jos has a fix.

p4raw-id: //depot/perl@29381

diff --git a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
index 6ba26f2..f46fd9c 100644 (file)
--- a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
+++ b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
@@ -127,7 +127,10 @@ use_ok( 'Module::Load::Conditional' ) or diag "Module.pm not found.  Dying", die
 
 ### test 'requires' ###
 
-{   my %list = map { $_ => 1 } requires('Carp');
+SKIP:{
+    skip "Depends on \$^X, which doesn't work well when testing the Perl core", 
+        1 if $ENV{PERL_CORE};
+    my %list = map { $_ => 1 } requires('Carp');
 
     my $flag;
     $flag++ unless delete $list{'Exporter'};