This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reindent block in rpeep()
authorDavid Mitchell <davem@iabyn.com>
Wed, 4 Jan 2017 21:22:21 +0000 (21:22 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 6 Jan 2017 16:28:27 +0000 (16:28 +0000)
(whitespace-only change)

The code for the case OP_PADAV/OP_PADSV was too far left.

op.c

diff --git a/op.c b/op.c
index 7aa56f7..5966d53 100644 (file)
--- a/op.c
+++ b/op.c
@@ -14184,16 +14184,16 @@ Perl_rpeep(pTHX_ OP *o)
             /* FALLTHROUGH */
        case OP_PADAV:
        case OP_PADSV:
-       /* Skip over state($x) in void context.  */
-       if (oldop && o->op_private == (OPpPAD_STATE|OPpLVAL_INTRO)
-        && (o->op_flags & OPf_WANT) == OPf_WANT_VOID)
-       {
-           oldop->op_next = o->op_next;
-           goto redo_nextstate;
-       }
-       if (o->op_type != OP_PADAV)
-           break;
-       /* FALLTHROUGH */
+            /* Skip over state($x) in void context.  */
+            if (oldop && o->op_private == (OPpPAD_STATE|OPpLVAL_INTRO)
+             && (o->op_flags & OPf_WANT) == OPf_WANT_VOID)
+            {
+                oldop->op_next = o->op_next;
+                goto redo_nextstate;
+            }
+            if (o->op_type != OP_PADAV)
+                break;
+            /* FALLTHROUGH */
        case OP_GV:
            if (o->op_type == OP_PADAV || o->op_next->op_type == OP_RV2AV) {
                OP* const pop = (o->op_type == OP_PADAV) ?