This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
clarify code comment in pp_goto(()
authorDavid Mitchell <davem@iabyn.com>
Fri, 18 Dec 2015 22:07:25 +0000 (22:07 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:36 +0000 (09:18 +0000)
pp_ctl.c

index 9e7888b..735969c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2721,7 +2721,7 @@ PP(pp_goto)
             CX_LEAVE_SCOPE(cx);
 
            if (CxTYPE(cx) == CXt_SUB && CxHASARGS(cx)) {
-                /* this is POPSUB_ARGS() with minor variations */
+                /* this is part of POPSUB_ARGS() */
                AV* av = MUTABLE_AV(PAD_SVl(0));
                 assert(AvARRAY(MUTABLE_AV(
                     PadlistARRAY(CvPADLIST(cx->blk_sub.cv))[