1 files changed, 43 insertions, 0 deletions
diff --git a/vms/sockadapt.c b/vms/sockadapt.c
new file mode 100644
index 0000000000..fc42bcc5a4
--- /dev/null
+++ b/vms/sockadapt.c
@@ -0,0 +1,43 @@
+/*  sockadapt.c
+ *
+ *  Author: Charles Bailey  bailey@genetics.upenn.edu
+ *  Last Revised: 05-Oct-1994
+ *
+ *  This file should contain stubs for any of the TCP/IP functions perl5
+ *  requires which are not supported by your TCP/IP stack.  These stubs
+ *  can attempt to emulate the routine in question, or can just return
+ *  an error status or cause perl to die.
+ *
+ *  This version is set up for perl5 with socketshr 0.9A TCP/IP support.
+ */
+
+#include "sockadapt.h"
+
+#ifdef __STDC__
+#define STRINGIFY(a) #a	 /* config-skip */
+#else
+#define STRINGIFY(a) "a"	 /* config-skip */
+#endif
+
+#define FATALSTUB(func) \
+  void func() {\
+    croak("Function %s not implemented in this version of perl",\
+    STRINGIFY(func));\
+  }
+
+FATALSTUB(endhostent);
+FATALSTUB(endnetent);
+FATALSTUB(endprotoent);
+FATALSTUB(endservent);
+FATALSTUB(gethostent);
+FATALSTUB(getnetbyaddr);
+FATALSTUB(getnetbyname);
+FATALSTUB(getnetent);
+FATALSTUB(getprotobyname);
+FATALSTUB(getprotobynumber);
+FATALSTUB(getprotoent);
+FATALSTUB(getservent);
+FATALSTUB(sethostent);
+FATALSTUB(setnetent);
+FATALSTUB(setprotoent);
+FATALSTUB(setservent);