X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fextras.t;h=cef6a6c31aecdb645cf1ea4d627296f42247a2c9;hb=7a0d7a93dd5fea2bb680b86d5a167c307fd9bae7;hp=b8c5ecf5a8831c3bf891ef4104ffd1a28f5fd018;hpb=b43e54c0f8ce75f52e91d2eb255e5a0def148987;p=p5sagit%2Fstrictures.git

diff --git a/t/extras.t b/t/extras.t
index b8c5ecf..cef6a6c 100644
--- 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]};