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/config_h.PL | |
| 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/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 929ef5a312..531ddceb4d 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -64,7 +64,7 @@ while (<SH>) s#/[ *\*]*\*/#/**/#; if (/^\s*#define\s+(PRIVLIB|SITELIB|VENDORLIB)_EXP/) { - $_ = "#define ". $1 . "_EXP (win32_get_". lc($1) . "($patchlevel))\t/**/\n"; + $_ = "#define ". $1 . "_EXP (win32_get_". lc($1) . "(PERL_VERSION_STRING, NULL))\t/**/\n"; } # incpush() handles archlibs, so disable them elsif (/^\s*#define\s+(ARCHLIB|SITEARCH|VENDORARCH)_EXP/) |