diff options
| -rw-r--r-- | win32/config_h.PL | 3 | ||||
| -rw-r--r-- | win32/win32.c | 9 | ||||
| -rw-r--r-- | win32/win32.h | 1 |
3 files changed, 12 insertions, 1 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 98b474a144..5d47016dc9 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -37,7 +37,8 @@ while (<SH>) s#/[ *\*]*\*/#/**/#; if (/^\s*#define\s+ARCHLIB_EXP/) { - $_ = "#define ARCHLIB_EXP (win32PerlLibPath())\t/**/\n"; + $_ = "#define ARCHLIB_EXP (win32PerlLibPath())\t/**/\n" + . "#define APPLLIB_EXP (win32SiteLibPath())\t/**/\n"; } print H; } diff --git a/win32/win32.c b/win32/win32.c index 653cdf79cb..4663f86938 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -86,6 +86,15 @@ win32PerlLibPath(void) return (szPerlLibRoot); } +char * +win32SiteLibPath(void) +{ + static char szPerlSiteLib[MAXPATH+1]; + strcpy(szPerlSiteLib, win32PerlLibPath()); + strcat(szPerlSiteLib, "\\site"); + return (szPerlSiteLib); +} + BOOL HasRedirection(char *ptr) { diff --git a/win32/win32.h b/win32/win32.h index 344ddaba59..d295a75a35 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -99,6 +99,7 @@ struct tms { unsigned int sleep(unsigned int); char *win32PerlLibPath(void); +char *win32SiteLibPath(void); int mytimes(struct tms *timebuf); unsigned int myalarm(unsigned int sec); int do_aspawn(void* really, void** mark, void** arglast); |