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 /os2/OS2 | |
| 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 'os2/OS2')
| -rw-r--r-- | os2/OS2/REXX/REXX.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/os2/OS2/REXX/REXX.xs b/os2/OS2/REXX/REXX.xs index 43bdcac144..fb6ae2a9cf 100644 --- a/os2/OS2/REXX/REXX.xs +++ b/os2/OS2/REXX/REXX.xs @@ -80,7 +80,7 @@ exec_in_REXX_with(pTHX_ char *cmd, int c, char **handlerNames, RexxFunctionHandl incompartment++; if (c) - Newz(728, subs, c, char); + Newxz(subs, c, char); while (n--) { rc = pRexxRegisterFunctionExe(handlerNames[n], handlers[n]); if (rc == RXFUNC_DEFINED) @@ -90,7 +90,7 @@ exec_in_REXX_with(pTHX_ char *cmd, int c, char **handlerNames, RexxFunctionHandl s = cmd; while (*s) { if (*s == '\n') { /* Is not preceeded by \r! */ - New(728, cmd, 2*strlen(cmd)+1, char); + Newx(cmd, 2*strlen(cmd)+1, char); s = ocmd; t = cmd; while (*s) { @@ -553,8 +553,8 @@ _REXX_eval_with(cmd,...) if ((items % 2) == 0) Perl_croak(aTHX_ "Name/values should come in pairs in REXX_eval_with()"); - New(730, names, n, char*); - New(730, cvs, n, SV*); + Newx(names, n, char*); + Newx(cvs, n, SV*); /* XXX Unfinished... */ RETVAL = Nullsv; Safefree(names); |