summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorJim Cromie <jcromie@cpan.org>2005-07-06 08:19:53 -0600
committerSteve Hay <SteveHay@planit.com>2005-07-08 16:35:10 +0000
commita02a5408b2f199007c4dcb74559cc79066307ada (patch)
treeb5456b7513dec78b81e08371fbd59138e2edfe72 /pp_ctl.c
parentbdf3085f9fca00a6148ef3f26060d442844b64bd (diff)
downloadperl-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 'pp_ctl.c')
-rw-r--r--pp_ctl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a0c7b08661..7460d775fe 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -314,7 +314,7 @@ Perl_rxres_save(pTHX_ void **rsp, REGEXP *rx)
i = 6 + rx->nparens * 2;
#endif
if (!p)
- New(501, p, i, UV);
+ Newx(p, i, UV);
else
Renew(p, i, UV);
*rsp = (void*)p;
@@ -3660,7 +3660,7 @@ S_doparseform(pTHX_ SV *sv)
s = base;
base = Nullch;
- New(804, fops, maxops, U32);
+ Newx(fops, maxops, U32);
fpc = fops;
if (s < send) {