diff options
author | Hugo van der Sanden <hv@crypt.org> | 2003-02-16 11:08:06 +0000 |
---|---|---|
committer | hv <hv@crypt.org> | 2003-02-16 11:08:06 +0000 |
commit | fdb2241864c257e44490544064b09a293414e55f (patch) | |
tree | 106815275eaca299c58408d0c9f7ecc8f3542dea /op.c | |
parent | ec618cdf8cd188a382b8a5ab7751b8c7e9ef80c2 (diff) | |
download | perl-fdb2241864c257e44490544064b09a293414e55f.tar.gz |
outdent else-if chain in scope()
p4raw-id: //depot/perl@18722
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 20 |
1 files changed, 9 insertions, 11 deletions
@@ -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; } |