From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Sep 2009 17:43:07 +0000 (+0100)
Subject: In PERL_CORE under ext, the %INC path for strict changes if you reload it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51e9a6ea64fc6fae732d0e03e16d15f12e54cb89;p=p5sagit%2Fp5-mst-13.2.git

In PERL_CORE under ext, the %INC path for strict changes if you reload it.

I'm guessing that it's loaded as a side effect of the "relative-to-absoulte"
code in TestInit, before paths are forced to be absolute. Changing the test to
use a module that hasn't been loaded (less) makes it pass reliably.
---

diff --git a/ext/Module-Loaded/t/01_Module-Loaded.t b/ext/Module-Loaded/t/01_Module-Loaded.t
index f4c1a46..9f478af 100644
--- a/ext/Module-Loaded/t/01_Module-Loaded.t
+++ b/ext/Module-Loaded/t/01_Module-Loaded.t
@@ -4,7 +4,8 @@ use Test::More  'no_plan';
 my $Class   = 'Module::Loaded';
 my @Funcs   = qw[mark_as_loaded mark_as_unloaded is_loaded];
 my $Mod     = 'Foo::Bar'.$$;
-my $Strict  = 'strict';
+my $Strict  = 'less';
+use less;
 
 ### load the thing
 {   use_ok( $Class );