do not localize %ENV, rather, remove potentially conflicting k-v pairs (RT #48557)

[catagits/Catalyst-Plugin-ConfigLoader.git] / t / 20-mock_load.t

diff --git a/t/20-mock_load.t b/t/20-mock_load.t
index 0190b80..987dd23 100644 (file)
--- a/t/20-mock_load.t
+++ b/t/20-mock_load.t
@@ -1,9 +1,13 @@
 package MockApp;
 
 use Test::More tests => 10;
-
 use Cwd;
-local %ENV;
+
+# Remove all relevant env variables to avoid accidental fail
+foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
+    delete $ENV{ $name };
+}
+
 $ENV{ CATALYST_HOME } = cwd . '/t/mockapp';
 
 use_ok( 'Catalyst', qw( ConfigLoader ) );