summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-06-09 10:46:17 +0100
committerDavid Mitchell <davem@iabyn.com>2015-06-19 08:44:17 +0100
commit13929c4c904f664656210671cd0d039f4212f917 (patch)
treebdb5c814ddbf733dda8c1fb84266b89228c6cc96 /pp_ctl.c
parente80c4acfa42a94f2871cd8778da458d8d1942385 (diff)
downloadperl-13929c4c904f664656210671cd0d039f4212f917.tar.gz
reindent code block in pp_return
Just a whitespace change.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c52
1 files changed, 26 insertions, 26 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 94d26f875b..58dc717804 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2448,34 +2448,34 @@ PP(pp_return)
}
if (CxTYPE(cx) == CXt_SUB) {
- SV **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;
- }
+ SV **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;
}
- /* fall through to a normal sub exit */
- return CvLVALUE(cx->blk_sub.cv)
- ? S_return_lvalues(aTHX)
- : Perl_pp_leavesub(aTHX);
+ else
+ PL_stack_sp = oldsp;
+ }
+ /* fall through to a normal sub exit */
+ return CvLVALUE(cx->blk_sub.cv)
+ ? S_return_lvalues(aTHX)
+ : Perl_pp_leavesub(aTHX);
}
POPBLOCK(cx,newpm);