Reorder S_ft_stacking_return_false().

Move the code which deals with setting the return value on perl's stack
ahead of the code which calculates which op to run next (the return value of
the C function).

1 files changed, 6 insertions, 4 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 799ead32ad..891a76d43c 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2910,14 +2910,16 @@ PP(pp_stat)
 
 static OP *
 S_ft_stacking_return_false(pTHX_ SV *ret) {
-    dSP;
     OP *next = NORMAL;
-    while (OP_IS_FILETEST(next->op_type)
-	&& next->op_private & OPpFT_STACKED)
-	next = next->op_next;
+    dSP;
+
     if (PL_op->op_flags & OPf_REF) XPUSHs(ret);
     else			   SETs(ret);
     PUTBACK;
+
+    while (OP_IS_FILETEST(next->op_type)
+	&& next->op_private & OPpFT_STACKED)
+	next = next->op_next;
     return next;
 }