This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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;
            }
          }