[perl #119311] Keep CvDEPTH and savestack in sync

[perl5.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index b837a1e..d87299f 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1493,8 +1493,8 @@ PP(pp_leavewrite)
 
   forget_top:
     POPBLOCK(cx,PL_curpm);
-    POPFORMAT(cx);
     retop = cx->blk_sub.retop;
+    POPFORMAT(cx);
     SP = newsp; /* ignore retval of formline */
     LEAVE;