diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 16:39:23 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 16:39:23 +0000 |
| commit | be24f278f8b3ac1c7405c125d395bd1cc2a3d55e (patch) | |
| tree | 3bc7d40aaa22024292f377ef83f4a0e228ba634c | |
| parent | 6ff68fdd012a86829ad37b67861f3bf7ea777480 (diff) | |
| download | perl-be24f278f8b3ac1c7405c125d395bd1cc2a3d55e.tar.gz | |
newCONSTSUB had private MY_start_subparse.
p4raw-id: //depot/perl@826
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) |