This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
outdent else-if chain in scope()
authorHugo van der Sanden <hv@crypt.org>
Sun, 16 Feb 2003 11:08:06 +0000 (11:08 +0000)
committerhv <hv@crypt.org>
Sun, 16 Feb 2003 11:08:06 +0000 (11:08 +0000)
p4raw-id: //depot/perl@18722

op.c

diff --git a/op.c b/op.c
index 4cba2c5..faf4ad8 100644 (file)
--- 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;
 }