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

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]};