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_sort.c
index 4079eef..8e87512 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1706,13 +1706,13 @@ PP(pp_sort)
             CX_LEAVE_SCOPE(cx);
            if (!(flags & OPf_SPECIAL)) {
                 assert(CxTYPE(cx) == CXt_SUB);
-                POPSUB(cx);
+                CX_POPSUB(cx);
            }
             else
                 assert(CxTYPE(cx) == CXt_NULL);
                 /* there isn't a POPNULL ! */
 
-           POPBLOCK(cx);
+           CX_POPBLOCK(cx);
             CX_POP(cx);
            POPSTACK;
            CATCH_SET(oldcatch);