This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
intrpvar.h: Correct comment
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Aug 2014 05:37:03 +0000 (22:37 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 28 Aug 2014 20:04:17 +0000 (13:04 -0700)
This description has been a little faulty for quite some time, not
just because of the last few commits.  Any time pad_free or pad_swipe
is called, that pad slot becomes available and PL_padix is reset.
So ‘max used’ is not accurate.

intrpvar.h

index be61875..db763ad 100644 (file)
@@ -531,7 +531,8 @@ PERLVAR(I, subline, I32)            /* line this subroutine began on */
 PERLVAR(I, min_intro_pending, I32)     /* start of vars to introduce */
 
 PERLVAR(I, max_intro_pending, I32)     /* end of vars to introduce */
-PERLVAR(I, padix,      I32)            /* max used index in current "register" pad */
+PERLVAR(I, padix,      I32)            /* lowest unused index - 1
+                                          in current "register" pad */
 
 PERLVAR(I, padix_floor,        I32)            /* how low may inner block reset padix */