summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-02-15 14:35:36 +0000
committerNicholas Clark <nick@ccl4.org>2009-02-15 17:40:59 +0000
commit55b4bc1cac18bd560bcd9386594a419294fafc1d (patch)
treec84762d158b08bee5310441c5e99d8db881adef6 /embed.h
parent20ce4c11399f59a97d3594520606e1c947b4dde3 (diff)
downloadperl-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.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/embed.h b/embed.h
index ad6c409961..19e724bc09 100644
--- a/embed.h
+++ b/embed.h
@@ -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)