From be24f278f8b3ac1c7405c125d395bd1cc2a3d55e Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Mon, 16 Mar 1998 16:39:23 +0000 Subject: [PATCH] newCONSTSUB had private MY_start_subparse. p4raw-id: //depot/perl@826 --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.7.4