From: John Tobey <jtobey@john-edwin-tobey.org>
Date: Sun, 29 Oct 2000 11:37:45 +0000 (-0500)
Subject: constsub spillage.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e576b45761f07c8c98430e3a5530beb0c09fb876;p=p5sagit%2Fp5-mst-13.2.git

constsub spillage.

Subject: Re: [ID 20001029.002] Not OK: perl v5.7.0 +DEVEL7462 on i686-linux 2.2.16a (UNINSTALLED)
Message-Id: <m13pvSr-000FObC@feynman.localnet>

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

diff --git a/op.c b/op.c
index 0ac9060..659627c 100644
--- a/op.c
+++ b/op.c
@@ -4404,10 +4404,12 @@ Perl_op_const_sv(pTHX_ OP *o, CV *cv)
 
 	if (sv && o->op_next == o)
 	    return sv;
-	if (type == OP_NEXTSTATE || type == OP_NULL || type == OP_PUSHMARK)
-	    continue;
-	if (type == OP_DBSTATE)
-	    continue;
+	if (o->op_next != o) {
+	    if (type == OP_NEXTSTATE || type == OP_NULL || type == OP_PUSHMARK)
+		continue;
+	    if (type == OP_DBSTATE)
+		continue;
+	}
 	if (type == OP_LEAVESUB || type == OP_RETURN)
 	    break;
 	if (sv)