op.c:ck_eval: remove redundant null check

op_first is never null when OPf_KIDS is set.

1 files changed, 2 insertions, 5 deletions

diff --git a/op.c b/op.c
index 1d72f27394..f6d73a3073 100644
--- a/op.c
+++ b/op.c
@@ -8408,12 +8408,9 @@ Perl_ck_eval(pTHX_ OP *o)
     PL_hints |= HINT_BLOCK_SCOPE;
     if (o->op_flags & OPf_KIDS) {
 	SVOP * const kid = (SVOP*)cUNOPo->op_first;
+	assert(kid);
 
-	if (!kid) {
-	    o->op_flags &= ~OPf_KIDS;
-	    op_null(o);
-	}
-	else if (kid->op_type == OP_LINESEQ || kid->op_type == OP_STUB) {
+	if (kid->op_type == OP_LINESEQ || kid->op_type == OP_STUB) {
 	    LOGOP *enter;
 #ifdef PERL_MAD
 	    OP* const oldo = o;