diff options
author | David Mitchell <davem@iabyn.com> | 2015-06-09 10:46:17 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-06-19 08:44:17 +0100 |
commit | 13929c4c904f664656210671cd0d039f4212f917 (patch) | |
tree | bdb5c814ddbf733dda8c1fb84266b89228c6cc96 /pp_ctl.c | |
parent | e80c4acfa42a94f2871cd8778da458d8d1942385 (diff) | |
download | perl-13929c4c904f664656210671cd0d039f4212f917.tar.gz |
reindent code block in pp_return
Just a whitespace change.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 52 |
1 files changed, 26 insertions, 26 deletions
@@ -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); |