refactor extras loading

[p5sagit/strictures.git] / t / extras.t

diff --git a/t/extras.t b/t/extras.t
index b8c5ecf..cef6a6c 100644 (file)
--- a/t/extras.t
+++ b/t/extras.t
@@ -79,7 +79,7 @@ use strictures;
 
 {
   local $ENV{PERL_STRICTURES_EXTRA} = 1;
-  local $strictures::extra_load_states = undef;
+  local %strictures::extra_load_states = ();
   local @INC = (sub {
     die "Can't locate $_[1] in \@INC (...).\n"
       if $extras{$_[1]};