summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2003-02-16 11:08:06 +0000
committerhv <hv@crypt.org>2003-02-16 11:08:06 +0000
commitfdb2241864c257e44490544064b09a293414e55f (patch)
tree106815275eaca299c58408d0c9f7ecc8f3542dea /op.c
parentec618cdf8cd188a382b8a5ab7751b8c7e9ef80c2 (diff)
downloadperl-fdb2241864c257e44490544064b09a293414e55f.tar.gz
outdent else-if chain in scope()
p4raw-id: //depot/perl@18722
Diffstat (limited to 'op.c')
-rw-r--r--op.c20
1 files changed, 9 insertions, 11 deletions
diff --git a/op.c b/op.c
index 4cba2c584f..faf4ad8ffc 100644
--- a/op.c
+++ b/op.c
@@ -1705,18 +1705,16 @@ Perl_scope(pTHX_ OP *o)
o->op_type = OP_LEAVE;
o->op_ppaddr = PL_ppaddr[OP_LEAVE];
}
- else {
- if (o->op_type == OP_LINESEQ) {
- OP *kid;
- o->op_type = OP_SCOPE;
- o->op_ppaddr = PL_ppaddr[OP_SCOPE];
- kid = ((LISTOP*)o)->op_first;
- if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
- op_null(kid);
- }
- else
- o = newLISTOP(OP_SCOPE, 0, o, Nullop);
+ else if (o->op_type == OP_LINESEQ) {
+ OP *kid;
+ o->op_type = OP_SCOPE;
+ o->op_ppaddr = PL_ppaddr[OP_SCOPE];
+ kid = ((LISTOP*)o)->op_first;
+ if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
+ op_null(kid);
}
+ else
+ o = newLISTOP(OP_SCOPE, 0, o, Nullop);
}
return o;
}