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