rename POPFOO() to CX_POPFOO()

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index f4a7dcd..c769f97 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -6444,7 +6444,7 @@ PP(pp_coreargs)
                PERL_CONTEXT *cx = CX_CUR();
 
                 assert(CxHASARGS(cx));
-                POPSUB_ARGS(cx);;
+                CX_POPSUB_ARGS(cx);;
                cx->cx_type &= ~CXp_HASARGS;
            }
          }