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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1107,7 +1107,7 @@ PP(pp_sselect) #if BYTEORDER != 0x1234 && BYTEORDER != 0x12345678 s = SvPVX(sv); - New(403, fd_sets[i], growsize, char); + Newx(fd_sets[i], growsize, char); for (offset = 0; offset < growsize; offset += masksize) { for (j = 0, k=ORDERBYTE; j < masksize; j++, (k >>= 4)) fd_sets[i][j+offset] = s[(k % masksize) + offset]; @@ -3725,7 +3725,7 @@ S_dooneliner(pTHX_ const char *cmd, const char *filename) PerlIO *myfp; int anum = 1; - New(666, cmdline, strlen(cmd) + (strlen(filename) * 2) + 10, char); + Newx(cmdline, strlen(cmd) + (strlen(filename) * 2) + 10, char); strcpy(cmdline, cmd); strcat(cmdline, " "); for (s = cmdline + strlen(cmdline); *filename; ) { |