This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_return: reindent
[perl5.git] / pp_ctl.c
index 37f505a..e0caf6f 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2442,30 +2442,30 @@ PP(pp_return)
 
     cx = &cxstack[cxix];
 
-        oldsp = PL_stack_base + cx->blk_oldsp;
-        if (oldsp != MARK) {
-            /* Handle extra junk on the stack. For example,
-             *    for (1,2) { return 3,4 }
-             * leaves 1,2,3,4 on the stack. In list context we
-             * have to splice out the 1,2; In scalar context for
-             *    for (1,2) { return }
-             * we need to set sp = oldsp so that pp_leavesub knows
-             * to push &PL_sv_undef onto the stack.
-             * Note that in pp_return we only do the extra processing
-             * required to handle junk; everything else we leave to
-             * pp_leavesub.
-             */
-            SSize_t nargs = SP - MARK;
-            if (nargs) {
-                if (cx->blk_gimme == G_ARRAY) {
-                    /* shift return args to base of call stack frame */
-                    Move(MARK + 1, oldsp + 1, nargs, SV**);
-                    PL_stack_sp  = oldsp + nargs;
-                }
+    oldsp = PL_stack_base + cx->blk_oldsp;
+    if (oldsp != MARK) {
+        /* Handle extra junk on the stack. For example,
+         *    for (1,2) { return 3,4 }
+         * leaves 1,2,3,4 on the stack. In list context we
+         * have to splice out the 1,2; In scalar context for
+         *    for (1,2) { return }
+         * we need to set sp = oldsp so that pp_leavesub knows
+         * to push &PL_sv_undef onto the stack.
+         * Note that in pp_return we only do the extra processing
+         * required to handle junk; everything else we leave to
+         * pp_leavesub.
+         */
+        SSize_t nargs = SP - MARK;
+        if (nargs) {
+            if (cx->blk_gimme == G_ARRAY) {
+                /* shift return args to base of call stack frame */
+                Move(MARK + 1, oldsp + 1, nargs, SV**);
+                PL_stack_sp  = oldsp + nargs;
             }
-            else
-                PL_stack_sp  = oldsp;
         }
+        else
+            PL_stack_sp  = oldsp;
+    }
 
     /* fall through to a normal exit */
     switch (CxTYPE(cx)) {