summaryrefslogtreecommitdiff
path: root/win32/config_h.PL
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-01-04 07:59:44 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-01-04 07:59:44 +0000
commit2d7a92375815264badaef23c612657cbd4799f31 (patch)
treea21bf70b8eb3f8982a62d2acf344771f2d96e952 /win32/config_h.PL
parent25931d335858f0e7767af03260b9bb9ad7a959d5 (diff)
downloadperl-2d7a92375815264badaef23c612657cbd4799f31.tar.gz
[win32] Various win32 fixes
- support spawn via system(&P_NOWAIT,...) like OS2 - support wait() and waitpid() - s/GetCurrentDirectory/GetCwd/, long-named XS to be removed - support -lfoo properly in ExtUtils::Liblist - fix outdated info about Win32 support in perlfaq2 - fix win32 bug in perldoc that causes spurious warnings - regularize global function/variable names yet more - fix bug in do_aspawn() (it was always invoking shell, instead of almost never) - implement and export win32_wait() - stub version of USE_RTL_THREAD_API p4raw-id: //depot/win32/perl@391
Diffstat (limited to 'win32/config_h.PL')
-rw-r--r--win32/config_h.PL8
1 files changed, 4 insertions, 4 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL
index 7f2869c945..8a1665a75a 100644
--- a/win32/config_h.PL
+++ b/win32/config_h.PL
@@ -37,19 +37,19 @@ while (<SH>)
s#/[ *\*]*\*/#/**/#;
if (/^\s*#define\s+ARCHLIB_EXP/)
{
- $_ = "#define ARCHLIB_EXP (win32PerlLibPath(ARCHNAME,NULL))\t/**/\n";
+ $_ = "#define ARCHLIB_EXP (win32_perllib_path(ARCHNAME,NULL))\t/**/\n";
}
if (/^\s*#define\s+PRIVLIB_EXP/)
{
- $_ = "#define PRIVLIB_EXP (win32PerlLibPath(NULL))\t/**/\n"
+ $_ = "#define PRIVLIB_EXP (win32_perllib_path(NULL))\t/**/\n"
}
if (/^\s*#define\s+SITEARCH_EXP/)
{
- $_ = "#define SITEARCH_EXP (win32PerlLibPath(\"site\",ARCHNAME,NULL))\t/**/\n";
+ $_ = "#define SITEARCH_EXP (win32_perllib_path(\"site\",ARCHNAME,NULL))\t/**/\n";
}
if (/^\s*#define\s+SITELIB_EXP/)
{
- $_ = "#define SITELIB_EXP (win32PerlLibPath(\"site\",NULL))\t/**/\n";
+ $_ = "#define SITELIB_EXP (win32_perllib_path(\"site\",NULL))\t/**/\n";
}
print H;
}