diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-02-15 14:35:36 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-02-15 17:40:59 +0000 |
commit | 55b4bc1cac18bd560bcd9386594a419294fafc1d (patch) | |
tree | c84762d158b08bee5310441c5e99d8db881adef6 /embed.h | |
parent | 20ce4c11399f59a97d3594520606e1c947b4dde3 (diff) | |
download | perl-55b4bc1cac18bd560bcd9386594a419294fafc1d.tar.gz |
Refactor the separator splitting loop of S_incpush() into a S_incpush_use_sep().
Add a parameter to S_incpush() to optionally pass in the length. As S_incpush()
treats the directory parameter as const char, remove some malloc()s elsewhere
that were copying data on the assumption that it was not const safe.
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1288,6 +1288,7 @@ #define find_beginning S_find_beginning #define forbid_setid S_forbid_setid #define incpush S_incpush +#define incpush_use_sep S_incpush_use_sep #define init_interp S_init_interp #define init_ids S_init_ids #define init_main_stash S_init_main_stash @@ -3625,7 +3626,8 @@ #ifdef PERL_CORE #define find_beginning(a,b) S_find_beginning(aTHX_ a,b) #define forbid_setid(a,b) S_forbid_setid(aTHX_ a,b) -#define incpush(a,b) S_incpush(aTHX_ a,b) +#define incpush(a,b,c) S_incpush(aTHX_ a,b,c) +#define incpush_use_sep(a,b) S_incpush_use_sep(aTHX_ a,b) #define init_interp() S_init_interp(aTHX) #define init_ids() S_init_ids(aTHX) #define init_main_stash() S_init_main_stash(aTHX) |