From: David Mitchell <davem@iabyn.com>
Date: Fri, 18 Dec 2015 22:07:25 +0000 (+0000)
Subject: clarify code comment in pp_goto(()
X-Git-Tag: v5.23.8~154^2~50
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/dbf345cf84e095f8e3db260cb18b8a3203c12745

clarify code comment in pp_goto(()
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 9e7888b..735969c 100644
--- 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))[