This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_return(): reindent following previous commit
authorDavid Mitchell <davem@iabyn.com>
Thu, 27 Aug 2015 11:02:27 +0000 (12:02 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 08:59:38 +0000 (08:59 +0000)
whitespace-only change

pp_ctl.c

index 4286d6f..ea8ad0e 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2464,21 +2464,21 @@ PP(pp_return)
          * we need to set sp = oldsp so that pp_leavesub knows to push
          * &PL_sv_undef onto the stack.
          */
-    SV **oldsp;
-    cx = &cxstack[cxix];
-    oldsp = PL_stack_base + cx->blk_oldsp;
-    if (oldsp != MARK) {
-        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;
+        SV **oldsp;
+        cx = &cxstack[cxix];
+        oldsp = PL_stack_base + cx->blk_oldsp;
+        if (oldsp != MARK) {
+            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 */