diff options
author | Carl Hayter <hayter@usc.edu> | 2011-11-24 17:49:50 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-12-03 13:34:21 +0100 |
commit | c29067d7797853039f1acba2cddf71786ecd4b16 (patch) | |
tree | 3c2a8bc2310ecb9528f1de4ac9ef97cb0827e71d /embed.fnc | |
parent | 7e1dab6a61131a77ad847a43dacb66e48b0ab716 (diff) | |
download | perl-c29067d7797853039f1acba2cddf71786ecd4b16.tar.gz |
Make sitecustomize relocatableinc aware
When -Dusesitecustomize is used with -Duserelocatableinc,
SITELIB_EXP/sitecustomize.pl is not found due to SITELIB_EXP having a
'.../..' relocation path.
This patch refactors the path relocation code from S_incpush() into
S_mayberelocate() so that it can be used in both S_incpush() and in
usesitecustomize's use of SITELIB_EXP.
Diffstat (limited to 'embed.fnc')
-rw-r--r-- | embed.fnc | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1743,6 +1743,8 @@ s |void |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp s |void |forbid_setid |const char flag|const bool suidscript s |void |incpush |NN const char *const dir|STRLEN len \ |U32 flags +s |SV* |mayberelocate |NN const char *const dir|STRLEN len \ + |U32 flags s |void |incpush_use_sep|NN const char *p|STRLEN len|U32 flags s |void |init_interp s |void |init_ids |