small tweak for change#4309

p4raw-link: @4309 on //depot/perl: 38a230cb455fb1aca316039ba1d4aed58c0c60d5

p4raw-id: //depot/perl@4313

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index acde88380a..267039a294 100644
--- a/op.c
+++ b/op.c
@@ -1860,7 +1860,9 @@ Perl_scope(pTHX_ OP *o)
 		OP *kid;
 		o->op_type = OP_SCOPE;
 		o->op_ppaddr = PL_ppaddr[OP_SCOPE];
-		null(((LISTOP*)o)->op_first);
+		kid = ((LISTOP*)o)->op_first;
+		if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
+		    null(kid);
 	    }
 	    else
 		o = newLISTOP(OP_SCOPE, 0, o, Nullop);