X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Context.git;a=blobdiff_plain;f=lib%2FScope%2FContext.pm;fp=lib%2FScope%2FContext.pm;h=bf0f7c0502a97b590f2b99259f58c6c08ded2a7c;hp=70f68c008d6309196e7b8ed0f4a6044b38595833;hb=15a93c0a162d89644dbe4cbf0e839c3bbda7494b;hpb=db0decc19198c2e881faabebcb4b1372d26c5d5c diff --git a/lib/Scope/Context.pm b/lib/Scope/Context.pm index 70f68c0..bf0f7c0 100644 --- a/lib/Scope/Context.pm +++ b/lib/Scope/Context.pm @@ -293,7 +293,7 @@ BEGIN { my \$info = \$self->{info}; \$info = \$self->{info} = [ Scope::Upper::context_info(\$self->cxt) ] - unless \$info; + unless \$info; return \$info->[$idx]; }