This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
TOPBLOCK: make comment clear its used by goto too
authorDavid Mitchell <davem@iabyn.com>
Thu, 17 Dec 2015 17:34:36 +0000 (17:34 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:35 +0000 (09:18 +0000)
cop.h

diff --git a/cop.h b/cop.h
index b88256b..347e20e 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -969,7 +969,7 @@ struct block {
         PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;             \
        PL_curpm         = cx->blk_oldpm;
 
-/* Continue a block elsewhere (NEXT and REDO). */
+/* Continue a block elsewhere (e.g. NEXT, REDO, GOTO). */
 #define TOPBLOCK(cx)                                                   \
        CX_DEBUG(cx, "TOP");                                            \
        PL_stack_sp      = PL_stack_base + cx->blk_oldsp,               \