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] / perl.c
diff --git a/perl.c b/perl.c
index beb9d63..c86daa9 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -5082,7 +5082,7 @@ S_my_exit_jump(pTHX)
     POPSTACK_TO(PL_mainstack);
     if (cxstack_ix >= 0) {
         dounwind(-1);
-        POPBLOCK(cxstack);
+        CX_POPBLOCK(cxstack);
     }
     LEAVE_SCOPE(0);