This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv.c: document where @- and @+ (and %- and %+ are initialized in gv.c)
authorYves Orton <demerphq@gmail.com>
Thu, 13 Oct 2016 16:41:00 +0000 (18:41 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:27:59 +0000 (13:27 +0200)
gv.c

diff --git a/gv.c b/gv.c
index 3237c53..3652ee2 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -2097,8 +2097,8 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len,
                require_tie_mod(gv, '!', "Errno", 5, 1);
 
            break;
-       case '-':               /* $- */
-       case '+':               /* $+ */
+       case '-':               /* $-, %-, @- */
+       case '+':               /* $+, %+, @+ */
        GvMULTI_on(gv); /* no used once warnings here */
         {
             AV* const av = GvAVn(gv);