small tweak for change#4309
Gurusamy Sarathy [Fri, 8 Oct 1999 04:52:19 +0000 (04:52 +0000)]
p4raw-link: @4309 on //depot/perl: 38a230cb455fb1aca316039ba1d4aed58c0c60d5

p4raw-id: //depot/perl@4313

op.c

diff --git a/op.c b/op.c
index acde883..267039a 100644 (file)
--- 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);