Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2

[p5sagit/p5-mst-13.2.git] / ext / Win32CORE / Win32CORE.c

diff --git a/ext/Win32CORE/Win32CORE.c b/ext/Win32CORE/Win32CORE.c
index a2620b6..7769c74 100644 (file)
--- a/ext/Win32CORE/Win32CORE.c
+++ b/ext/Win32CORE/Win32CORE.c
@@ -57,10 +57,23 @@ FORWARD(Sleep)
 
 XS(boot_Win32CORE)
 {
-    dXSARGS;
+    /* This function only exists because writemain.SH, lib/ExtUtils/Embed.pm
+     * and win32/buildext.pl will all generate references to it.  The function
+     * should never be called though, as Win32CORE.pm doesn't use DynaLoader.
+     */
+}
+#ifdef __CYGWIN__
+__declspec(dllexport)
+#endif
+void
+init_Win32CORE(pTHX)
+{
+    /* This function is called from init_os_extras().  The Perl interpreter
+     * is not yet fully initialized, so don't do anything fancy in here.
+     */
+
     char *file = __FILE__;
 
-    /* these names are Activeware compatible */
     newXS("Win32::GetCwd", w32_GetCwd, file);
     newXS("Win32::SetCwd", w32_SetCwd, file);
     newXS("Win32::GetNextAvailDrive", w32_GetNextAvailDrive, file);
@@ -82,6 +95,4 @@ XS(boot_Win32CORE)
     newXS("Win32::CopyFile", w32_CopyFile, file);
     newXS("Win32::Sleep", w32_Sleep, file);
     /* newXS("Win32::SetChildShowWindow", w32_SetChildShowWindow, file); */
-
-    XSRETURN_YES;
 }