perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

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);