From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sun, 3 Dec 2000 19:06:53 +0000 (-0800)
Subject: [ID 20001203.001] Not OK: perl v5.7.0 +DEVEL7965 on os2-64int-ld 2.30 (UNINSTALLED)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e4bc33bdf4ed8200ffbc530cba09e11f3edc232;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001203.001] Not OK: perl v5.7.0 +DEVEL7965 on os2-64int-ld 2.30 (UNINSTALLED)
Message-Id: <200012040306.eB436rE18922@garcia.efn.org>

p4raw-id: //depot/perl@7976
---

diff --git a/os2/os2.c b/os2/os2.c
index 6faa415..66e48c4 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -22,6 +22,7 @@
 #include <fcntl.h>
 
 #define PERLIO_NOT_STDIO 0
+
 #include "EXTERN.h"
 #include "perl.h"
 
diff --git a/perlio.c b/perlio.c
index b0517e3..41d4a8e 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1493,12 +1493,20 @@ IV
 PerlIOStdio_close(PerlIO *f)
 {
  dTHX;
+#ifdef HAS_SOCKET
  int optval, optlen = sizeof(int);
+#endif
  FILE *stdio = PerlIOSelf(f,PerlIOStdio)->stdio;
  return(
+#ifdef HAS_SOCKET
    (getsockopt(PerlIO_fileno(f), SOL_SOCKET, SO_TYPE, (char *)&optval, &optlen) < 0) ?
        PerlSIO_fclose(stdio) :
-       close(PerlIO_fileno(f)));
+       close(PerlIO_fileno(f))
+#else
+   PerlSIO_fclose(stdio)
+#endif
+     );
+
 }
 
 IV