X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F31-localize_elem-level.t;h=b9c3e6bbdd88f5ca4a62c11b8e0302912b8c5032;hb=9ff004e51589dc6853794e3594262fdec8ea6927;hp=790147fb332d94d7c5b2451a5b9f921659066e74;hpb=0f7334e9f0acbdac38c362be678bd6ecb658cb0b;p=perl%2Fmodules%2FScope-Upper.git diff --git a/t/31-localize_elem-level.t b/t/31-localize_elem-level.t index 790147f..b9c3e6b 100644 --- a/t/31-localize_elem-level.t +++ b/t/31-localize_elem-level.t @@ -43,7 +43,7 @@ local $Scope::Upper::TestGenerator::call = sub { my ($height, $level, $i) = @_; $level = $level ? 'UP ' x $level : 'HERE'; return [ "localize_elem '%main::h', 'a' => 1 => $level;\n" ]; -}; +}; local $Scope::Upper::TestGenerator::test = sub { my ($height, $level, $i) = @_;