summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2019-02-04 15:17:02 +0000
committerDavid Mitchell <davem@iabyn.com>2019-02-05 14:03:05 +0000
commit13874762cb298e7f922df49e6c78fd3f2308d860 (patch)
treea3e0f4e6ac3eebe71642662a2f488cd2962b00da /gv.c
parent0872de45fff4b1f6c17e1d5bec82d3d5095801a2 (diff)
downloadperl-13874762cb298e7f922df49e6c78fd3f2308d860.tar.gz
Perl_try_amagic_un/bin re-indent
After the previous commit's simplification, eliminate a set of braces and re-indent a block of code.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c71
1 files changed, 35 insertions, 36 deletions
diff --git a/gv.c b/gv.c
index 3beabe0838..ae7f2aa422 100644
--- a/gv.c
+++ b/gv.c
@@ -2953,22 +2953,21 @@ Perl_try_amagic_un(pTHX_ int method, int flags) {
AMGf_noright | AMGf_unary
| (flags & AMGf_numarg))))
{
- {
- /* where the op is of the form:
- * $lex = $x op $y (where the assign is optimised away)
- * then assign the returned value to targ and return that;
- * otherwise return the value directly
- */
- if ( (PL_opargs[PL_op->op_type] & OA_TARGLEX)
- && (PL_op->op_private & OPpTARGET_MY))
- {
- dTARGET;
- sv_setsv(TARG, tmpsv);
- SETTARG;
- }
- else
- SETs(tmpsv);
- }
+ /* where the op is of the form:
+ * $lex = $x op $y (where the assign is optimised away)
+ * then assign the returned value to targ and return that;
+ * otherwise return the value directly
+ */
+ if ( (PL_opargs[PL_op->op_type] & OA_TARGLEX)
+ && (PL_op->op_private & OPpTARGET_MY))
+ {
+ dTARGET;
+ sv_setsv(TARG, tmpsv);
+ SETTARG;
+ }
+ else
+ SETs(tmpsv);
+
PUTBACK;
return TRUE;
}
@@ -3006,30 +3005,30 @@ Perl_try_amagic_bin(pTHX_ int method, int flags) {
(mutator ? AMGf_assign: 0)
| (flags & AMGf_numarg));
if (tmpsv) {
- {
- (void)POPs;
- /* where the op is one of the two forms:
- * $x op= $y
- * $lex = $x op $y (where the assign is optimised away)
- * then assign the returned value to targ and return that;
- * otherwise return the value directly
- */
- if ( mutator
- || ( (PL_opargs[PL_op->op_type] & OA_TARGLEX)
- && (PL_op->op_private & OPpTARGET_MY)))
- {
- dTARG;
- TARG = mutator ? *SP : PAD_SV(PL_op->op_targ);
- sv_setsv(TARG, tmpsv);
- SETTARG;
- }
- else
- SETs(tmpsv);
- }
+ (void)POPs;
+ /* where the op is one of the two forms:
+ * $x op= $y
+ * $lex = $x op $y (where the assign is optimised away)
+ * then assign the returned value to targ and return that;
+ * otherwise return the value directly
+ */
+ if ( mutator
+ || ( (PL_opargs[PL_op->op_type] & OA_TARGLEX)
+ && (PL_op->op_private & OPpTARGET_MY)))
+ {
+ dTARG;
+ TARG = mutator ? *SP : PAD_SV(PL_op->op_targ);
+ sv_setsv(TARG, tmpsv);
+ SETTARG;
+ }
+ else
+ SETs(tmpsv);
+
PUTBACK;
return TRUE;
}
}
+
if(left==right && SvGMAGICAL(left)) {
SV * const left = sv_newmortal();
*(sp-1) = left;