perldoc under OS/2

[p5sagit/p5-mst-13.2.git] / win32 / win32sck.c

diff --git a/win32/win32sck.c b/win32/win32sck.c
index 45f7ac1..d541a7e 100644 (file)
--- a/win32/win32sck.c
+++ b/win32/win32sck.c
@@ -22,7 +22,7 @@
 #ifdef USE_SOCKETS_AS_HANDLES
 /* thanks to Beverly Brown     (beverly@datacube.com) */
 
-#define OPEN_SOCKET(x) _open_osfhandle(x,_O_RDWR|_O_BINARY)
+#define OPEN_SOCKET(x) _open_osfhandle(x,O_RDWR|O_BINARY)
 #define TO_SOCKET(x)   _get_osfhandle(x)
 
 #else
@@ -121,12 +121,9 @@ __declspec(thread) struct servent myservent;
 void *
 GetAddress(HINSTANCE hInstance, char *lpFunctionName)
 {
-    char buffer[512];
     FARPROC proc = GetProcAddress(hInstance, lpFunctionName);
-    if(proc == 0) {
-       sprintf(buffer, "Unable to get address of %s in WSock32.dll", lpFunctionName);
-       CROAK(buffer);
-    }
+    if(proc == 0)
+       CROAK("Unable to get address of %s in WSock32.dll", lpFunctionName);
     return proc;
 }
 
@@ -240,7 +237,7 @@ myfdopen(int fd, char *mode)
     /*
      * If we get here, then fd is actually a socket.
      */
-    Newz(1601, fp, 1, FILE);
+    Newz(1310, fp, 1, FILE);
     if(fp == NULL) {
        errno = ENOMEM;
        return NULL;
@@ -697,9 +694,12 @@ win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
     d->s_name = s->s_name;
     d->s_aliases = s->s_aliases;
     d->s_port = s->s_port;
+#ifndef __BORLANDC__   /* Buggy on Win95 and WinNT-with-Borland-WSOCK */
     if (!IsWin95() && s->s_proto && strlen(s->s_proto))
        d->s_proto = s->s_proto;
-    else if (proto && strlen(proto))
+    else
+#endif
+       if (proto && strlen(proto))
        d->s_proto = (char *)proto;
     else
        d->s_proto = "tcp";