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 /dump.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 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -769,7 +769,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) #else if ( ! PL_op->op_flags & OPf_SPECIAL) { /* not lexical */ if (cSVOPo->op_sv) { - SV *tmpsv = NEWSV(0,0); + SV *tmpsv = newSV(0); ENTER; SAVEFREESV(tmpsv); gv_fullname3(tmpsv, (GV*)cSVOPo->op_sv, Nullch); @@ -1649,7 +1649,7 @@ Perl_debop(pTHX_ const OP *o) case OP_GVSV: case OP_GV: if (cGVOPo_gv) { - SV *sv = NEWSV(0,0); + SV *sv = newSV(0); gv_fullname3(sv, cGVOPo_gv, Nullch); PerlIO_printf(Perl_debug_log, "(%s)", SvPV_nolen_const(sv)); SvREFCNT_dec(sv); |