This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POPSUB_ARGS: move a code comment to the right line
authorDavid Mitchell <davem@iabyn.com>
Thu, 17 Dec 2015 17:30:48 +0000 (17:30 +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 de17f3a..b88256b 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -687,9 +687,9 @@ struct block_format {
             PadlistARRAY(CvPADLIST(cx->blk_sub.cv))[                    \
                     CvDEPTH(cx->blk_sub.cv)])) == PL_curpad);           \
         POP_SAVEARRAY();                                               \
-        /* abandon @_ if it got reified */                             \
         av = MUTABLE_AV(PAD_SVl(0));                                    \
         if (UNLIKELY(AvREAL(av)))                                      \
+            /* abandon @_ if it got reified */                         \
             clear_defarray(av, 0);                                      \
         else {                                                         \
             CLEAR_ARGARRAY(av);                                                \