diff options
| author | Jim Cromie <jcromie@cpan.org> | 2005-07-06 08:19:53 -0600 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-08 16:35:10 +0000 |
| commit | a02a5408b2f199007c4dcb74559cc79066307ada (patch) | |
| tree | b5456b7513dec78b81e08371fbd59138e2edfe72 /scope.c | |
| parent | bdf3085f9fca00a6148ef3f26060d442844b64bd (diff) | |
| download | perl-a02a5408b2f199007c4dcb74559cc79066307ada.tar.gz | |
Re: janitorial work ? [patch]
Message-ID: <42CC3CE9.5050606@divsol.com>
(reverted all dual-lived modules since they must work with older
perls too so must wait for a new Devel::PPPort)
p4raw-id: //depot/perl@25101
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -46,7 +46,7 @@ PERL_SI * Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems) { PERL_SI *si; - New(56, si, 1, PERL_SI); + Newx(si, 1, PERL_SI); si->si_stack = newAV(); AvREAL_off(si->si_stack); av_extend(si->si_stack, stitems > 0 ? stitems-1 : 0); @@ -57,7 +57,7 @@ Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems) si->si_cxmax = cxitems - 1; si->si_cxix = -1; si->si_type = PERLSI_UNDEF; - New(56, si->si_cxstack, cxitems, PERL_CONTEXT); + Newx(si->si_cxstack, cxitems, PERL_CONTEXT); /* Without any kind of initialising PUSHSUBST() * in pp_subst() will read uninitialised heap. */ Poison(si->si_cxstack, cxitems, PERL_CONTEXT); @@ -254,7 +254,7 @@ Perl_save_gp(pTHX_ GV *gv, I32 empty) if (empty) { register GP *gp; - Newz(602, gp, 1, GP); + Newxz(gp, 1, GP); if (GvCVu(gv)) PL_sub_generation++; /* taking a method out of circulation */ |