This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Missing line break
authorFather Chrysostomos <sprout@cpan.org>
Sat, 14 Jul 2012 07:36:06 +0000 (00:36 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 14 Jul 2012 07:36:06 +0000 (00:36 -0700)
op.c

diff --git a/op.c b/op.c
index 40c5be6..aa12ef9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10650,7 +10650,8 @@ Perl_rpeep(pTHX_ register OP *o)
                OP * const kid =
                    cUNOPx(cLISTOP->op_first->op_sibling)->op_first;
                if (kid->op_type == OP_SCOPE
                OP * const kid =
                    cUNOPx(cLISTOP->op_first->op_sibling)->op_first;
                if (kid->op_type == OP_SCOPE
-                || (kid->op_type == OP_NULL && kid->op_targ == OP_LEAVE))                  DEFER(kLISTOP->op_first);
+                || (kid->op_type == OP_NULL && kid->op_targ == OP_LEAVE))
+                   DEFER(kLISTOP->op_first);
            }
 
            /* check that RHS of sort is a single plain array */
            }
 
            /* check that RHS of sort is a single plain array */