From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 8 Oct 1999 04:52:19 +0000 (+0000)
Subject: small tweak for change#4309
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3ed7a6a3be36ce7c8d958cb32b70c4825b2bf9b;p=p5sagit%2Fp5-mst-13.2.git

small tweak for change#4309

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

p4raw-id: //depot/perl@4313
---

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