diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-02-20 20:09:16 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-02-20 20:16:12 +0000 |
commit | e6a0bbf8b4e00dca6da011b9cb1d8c949b3bfa1e (patch) | |
tree | 4fb59c91c234617af3526425a3b8123c2c5a2bab /win32/perlhost.h | |
parent | fd2c5c6c3907b40a30d10beb189791226562c647 (diff) | |
download | perl-e6a0bbf8b4e00dca6da011b9cb1d8c949b3bfa1e.tar.gz |
Add a parameter to win32_get_{priv,site,vendor}lib(), to return the length,
as we already know it, and use it in S_init_perllib() to save a strlen() in
S_incpush_use_sep().
Diffstat (limited to 'win32/perlhost.h')
-rw-r--r-- | win32/perlhost.h | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 3bd3e16a5a..6e3fcd27a6 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -26,9 +26,10 @@ #endif START_EXTERN_C -extern char * g_win32_get_privlib(const char *pl); -extern char * g_win32_get_sitelib(const char *pl); -extern char * g_win32_get_vendorlib(const char *pl); +extern char * g_win32_get_privlib(const char *pl, STRLEN *const len); +extern char * g_win32_get_sitelib(const char *pl, STRLEN *const len); +extern char * g_win32_get_vendorlib(const char *pl, + STRLEN *const len); extern char * g_getlogin(void); END_EXTERN_C @@ -517,21 +518,22 @@ PerlEnvOsId(struct IPerlEnv* piPerl) } char* -PerlEnvLibPath(struct IPerlEnv* piPerl, const char *pl) +PerlEnvLibPath(struct IPerlEnv* piPerl, const char *pl, STRLEN *const len) { - return g_win32_get_privlib(pl); + return g_win32_get_privlib(pl, len); } char* -PerlEnvSiteLibPath(struct IPerlEnv* piPerl, const char *pl) +PerlEnvSiteLibPath(struct IPerlEnv* piPerl, const char *pl, STRLEN *const len) { - return g_win32_get_sitelib(pl); + return g_win32_get_sitelib(pl, len); } char* -PerlEnvVendorLibPath(struct IPerlEnv* piPerl, const char *pl) +PerlEnvVendorLibPath(struct IPerlEnv* piPerl, const char *pl, + STRLEN *const len) { - return g_win32_get_vendorlib(pl); + return g_win32_get_vendorlib(pl, len); } void |