From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 25 Nov 2006 23:11:36 +0000 (+0000)
Subject: Skip test for Module::Load::Conditional that appears to be setting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1dc5a1cd6365e08f4fc3eb112b57b3cba7f744d7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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'};