From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 16 Mar 1998 16:39:23 +0000 (+0000)
Subject: newCONSTSUB had private MY_start_subparse.
X-Git-Tag: accepted/trunk/20130322.191538~37772
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=be24f278f8b3ac1c7405c125d395bd1cc2a3d55e;p=platform%2Fupstream%2Fperl.git

newCONSTSUB had private MY_start_subparse.

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

diff --git a/op.c b/op.c
index b636a91..0ac85b8 100644
--- a/op.c
+++ b/op.c
@@ -3531,7 +3531,7 @@ newCONSTSUB(HV *stash, char *name, SV *sv)
 	curstash = curcop->cop_stash = stash;
 
     newSUB(
-	MY_start_subparse(FALSE, 0),
+	start_subparse(FALSE, 0),
 	newSVOP(OP_CONST, 0, newSVpv(name,0)),
 	newSVOP(OP_CONST, 0, &sv_no),	/* SvPV(&sv_no) == "" -- GMB */
 	newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))