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.fnc | |
| 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.fnc')
| -rw-r--r-- | embed.fnc | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1473,7 +1473,9 @@ s |void |Slab_to_rw |NN void *op #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) s |void |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp s |void |forbid_setid |const char flag|const bool suidscript -s |void |incpush |NULLOK const char *dir|U32 flags +s |void |incpush |NULLOK const char *const dir|STRLEN len \ + |U32 flags +s |void |incpush_use_sep|NULLOK const char *p|U32 flags s |void |init_interp s |void |init_ids s |void |init_main_stash |