X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FScope%2FContext.pm;h=bf0f7c0502a97b590f2b99259f58c6c08ded2a7c;hb=15a93c0a162d89644dbe4cbf0e839c3bbda7494b;hp=6658c3cfe8596208bdb09fd4ccca799230192cbf;hpb=3c4dd9fbf7894245f46e02300a54df2971e12a27;p=perl%2Fmodules%2FScope-Context.git

diff --git a/lib/Scope/Context.pm b/lib/Scope/Context.pm
index 6658c3c..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];
    }
@@ -333,7 +333,7 @@ If omitted, C<$frames> defaults to C<1>.
     sub {
      {
       {
-       my $up = Scope::Context->new->up(2); # = Scope::Context->up(2)
+       my $up = Scope::Context->new->up(2); # == Scope::Context->up(2)
        # $up points two contextes above this one, which is the sub.
       }
      }
@@ -378,7 +378,7 @@ If omitted, C<$frames> defaults to C<0>, which results in the closest sub enclos
     }
 
     sub inner {
-     my $sub = Scope::Context->new->sub(1); # = Scope::Context->sub(1)
+     my $sub = Scope::Context->new->sub(1); # == Scope::Context->sub(1)
      # $sub points to the context for the outer() sub.
     }
 
@@ -417,7 +417,7 @@ If omitted, C<$frames> defaults to C<0>, which results in the closest eval enclo
 
     eval {
      sub {
-      my $eval = Scope::Context->new->eval; # = Scope::Context->eval
+      my $eval = Scope::Context->new->eval; # == Scope::Context->eval
       # $eval points to the eval context.
      }->()
     }