2 files changed, 11 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 673fb6bb..21c5963a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-15         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* io.c: Add ifdefs for VMS so that it will compile again.
+	Thanks to Anders Wallin.
+
 2013-06-11         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* debug.c (print_lines): Move setting of binary mode to after all
diff --git a/io.c b/io.c
index 44530967..dad7c7b9 100644
--- a/io.c
+++ b/io.c
@@ -116,6 +116,10 @@
 #define ENFILE EMFILE
 #endif
 
+#if defined(VMS)
+#define closemaybesocket(fd)	close(fd)
+#endif
+
 #ifdef HAVE_SOCKETS
 
 #ifndef SHUT_RD
@@ -3013,7 +3017,9 @@ iop_finish(IOBUF *iop)
 				 *
 				 * The fcntl call works for Windows, too.
 				 */
+#if defined(F_GETFL)
 				if (fcntl(iop->public.fd, F_GETFL) >= 0)
+#endif
 					(void) close(iop->public.fd);
 				iop->public.fd = INVALID_HANDLE;
 			}