diff options
Diffstat (limited to 'win32/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 03dddb3b8a..1280655422 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -63,7 +63,12 @@ while (<SH>) s#(.)/\*\*/#$1/ **/# if(/^\/\*/); #avoid "/*" inside comments if (/^\s*#define\s+(PRIVLIB|SITELIB|VENDORLIB)_EXP/) { - $_ = "#define ". $1 . "_EXP (win32_get_". lc($1) . "(PERL_VERSION_STRING, NULL))\t/**/\n"; + $_ = '#define '. $1 . '_EXP ('.( + $1 eq 'PRIVLIB' ? 'PerlEnv_lib_path' : + $1 eq 'SITELIB' ? 'PerlEnv_sitelib_path' : + $1 eq 'VENDORLIB' ? 'PerlEnv_vendorlib_path' : + die "unknown *LIB_EXP define \"$1\"" + ). "(PERL_VERSION_STRING, NULL))\t/**/\n"; } # incpush() handles archlibs, so disable them elsif (/^\s*#define\s+(ARCHLIB|SITEARCH|VENDORARCH)_EXP/) |