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 (file)
--- 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 );