summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorCarl Hayter <hayter@usc.edu>2011-11-24 17:49:50 +0100
committerNicholas Clark <nick@ccl4.org>2011-12-03 13:34:21 +0100
commitc29067d7797853039f1acba2cddf71786ecd4b16 (patch)
tree3c2a8bc2310ecb9528f1de4ac9ef97cb0827e71d /embed.fnc
parent7e1dab6a61131a77ad847a43dacb66e48b0ab716 (diff)
downloadperl-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.fnc2
1 files changed, 2 insertions, 0 deletions
diff --git a/embed.fnc b/embed.fnc
index da62c5f0ab..0c3c3f891d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -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