1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index f4a7dcdc3c..c769f97549 100644
--- 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;
 	    }
 	  }