skip some asserts on non-PERL_OP_PARENT builds

Some asserts I added for for the op_lastsib stuff, while correct
on non-PERL_OP_PARENT builds, aren't necessary, and just increase the
risk of breakage of some hypothetical CPAN module that is doing strange
things.

1 files changed, 4 insertions, 8 deletions

diff --git a/op.c b/op.c
index c136a1a4eb..f912dd91db 100644
--- a/op.c
+++ b/op.c
@@ -299,7 +299,9 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
   gotit:
     /* lastsib == 1, op_sibling == 0 implies a solitary unattached op */
     o->op_lastsib = 1;
+#ifdef PERL_OP_PARENT
     assert(!o->op_sibling);
+#endif
 
     return (void *)o;
 }
@@ -2554,14 +2556,8 @@ S_finalize_op(pTHX_ OP* o)
                 assert(kid->op_sibling == o);
             }
 #  else
-            if (OpHAS_SIBLING(kid)) {
-                assert(!kid->op_lastsib);
-            }
-            else {
-                assert(kid->op_lastsib);
-                if (has_last)
-                    assert(kid == cLISTOPo->op_last);
-            }
+            if (has_last && !OpHAS_SIBLING(kid))
+                assert(kid == cLISTOPo->op_last);
 #  endif
         }
 #endif