summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-11-23 02:18:38 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-11-23 02:18:38 +0000
commit32ce473141ad06fe2aa5547b7bbf3f499b3d98ff (patch)
treeb79abc067d35c6b9a2013a271ba07af809cbb5ae /win32
parent0fbcf8670f7b79320531d771f1271eec9c9e232d (diff)
downloadperl-32ce473141ad06fe2aa5547b7bbf3f499b3d98ff.tar.gz
get sources building on windows+MSVC again (untested with other
compilers) p4raw-id: //depot/perl@7827
Diffstat (limited to 'win32')
-rw-r--r--win32/include/sys/socket.h37
-rw-r--r--win32/perllib.c2
2 files changed, 3 insertions, 36 deletions
diff --git a/win32/include/sys/socket.h b/win32/include/sys/socket.h
index 194de9581f..e83fd2bd94 100644
--- a/win32/include/sys/socket.h
+++ b/win32/include/sys/socket.h
@@ -10,49 +10,14 @@
extern "C" {
#endif
-#ifndef _WINDOWS_
-#ifdef __GNUC__
#define WIN32_LEAN_AND_MEAN
#ifdef __GNUC__
-#define Win32_Winsock
+# define Win32_Winsock
#endif
#include <windows.h>
-#else
-#define _WINDOWS_
-
-#define FAR
-#define PASCAL __stdcall
-#define WINAPI __stdcall
-
-#undef WORD
-typedef int BOOL;
-typedef unsigned short WORD;
-typedef void* HANDLE;
-typedef void* HWND;
-typedef int (FAR WINAPI *FARPROC)();
-
-typedef unsigned long DWORD;
-typedef void *PVOID;
-
-#define IN
-#define OUT
-
-typedef struct _OVERLAPPED {
- DWORD Internal;
- DWORD InternalHigh;
- DWORD Offset;
- DWORD OffsetHigh;
- HANDLE hEvent;
-} OVERLAPPED, *LPOVERLAPPED;
-
-#endif
-#endif //_WINDOWS_
-// #ifndef __GNUC__
#include <winsock.h>
-// #endif
#define ENOTSOCK WSAENOTSOCK
-#undef HOST_NOT_FOUND
#ifdef USE_SOCKETS_AS_HANDLES
diff --git a/win32/perllib.c b/win32/perllib.c
index 48843f92da..3b57efba8d 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -371,7 +371,9 @@ DllMain(HANDLE hModule, /* DLL module handle */
* process termination or call to FreeLibrary.
*/
case DLL_PROCESS_DETACH:
+#if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO)
PerlIO_cleanup();
+#endif
EndSockets();
#if defined(USE_THREADS) || defined(USE_ITHREADS)
if (PL_curinterp)