diff options
author | Steve Hay <SteveHay@planit.com> | 2006-01-18 14:23:09 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2006-01-18 14:23:09 +0000 |
commit | 561b68a973f8a5d10c61d6a02c02f3002a0a63ba (patch) | |
tree | 84518a9894ce4759b487340358880b3081926f90 /op.c | |
parent | 2f397494d2e5c4344bda444a704ca9e81d71a61b (diff) | |
download | perl-561b68a973f8a5d10c61d6a02c02f3002a0a63ba.tar.gz |
Change all NEWSV() to newSV() in the core and non-dual-lived modules.
Keep NEWSV() itself for backwards-compatibility outside of the core,
but don't advertise it any more.
(cf. change #25101).
p4raw-link: @25101 on //depot/perl: a02a5408b2f199007c4dcb74559cc79066307ada
p4raw-id: //depot/perl@26901
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4724,7 +4724,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) const char * const tname = (name ? name : aname); if (PERLDB_SUBLINE && PL_curstash != PL_debstash) { - SV * const sv = NEWSV(0,0); + SV * const sv = newSV(0); SV * const tmpstr = sv_newmortal(); GV * const db_postponed = gv_fetchpv("DB::postponed", GV_ADDMULTI, SVt_PVHV); HV *hv; @@ -4908,7 +4908,7 @@ Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) if (cv) /* must reuse cv if autoloaded */ cv_undef(cv); else { - cv = (CV*)NEWSV(1105,0); + cv = (CV*)newSV(0); sv_upgrade((SV *)cv, SVt_PVCV); if (name) { GvCV(gv) = cv; |