perl5.002beta3

[editor's note: no patch file was found for this release, so no
fine-grained changes]

I can't find the password for our ftp server, so I had to drop it into
ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop
directory you can't ls.

The current plan is that Andy is gonna whack on this a little more, and
then release a gamma in a few days when he's happy with it.  So don't get
carried away.  This is now *late* beta.

In other words, have less than the appropriate amount of fun.  :-)

Larry

1 files changed, 16 insertions, 7 deletions

diff --git a/vms/sockadapt.c b/vms/sockadapt.c
index 69f5def785..08251d6bdf 100644
--- a/vms/sockadapt.c
+++ b/vms/sockadapt.c
@@ -1,7 +1,7 @@
 /*  sockadapt.c
  *
  *  Author: Charles Bailey  bailey@genetics.upenn.edu
- *  Last Revised: 17-Mar-1995
+ *  Last Revised: 29-Jan-1996
  *
  *  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
@@ -13,22 +13,31 @@
 
 #include "EXTERN.h"
 #include "perl.h"
+#if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000)
+#  define __sockadapt_my_netent_t __struct_netent_ptr32
+#  define __sockadapt_my_addr_t   __in_addr_t
+#  define __sockadapt_my_name_t   const char *
+#else
+#  define __sockadapt_my_netent_t struct netent *
+#  define __sockadapt_my_addr_t   long
+#  define __sockadapt_my_name_t   char *
+#endif
 
-void endnetent() {
-  croak("Function \"endnetent\" not implemented in this version of perl");
-}
-struct netent *getnetbyaddr( long net, int type) {
+__sockadapt_my_netent_t getnetbyaddr( __sockadapt_my_addr_t net, int type) {
   croak("Function \"getnetbyaddr\" not implemented in this version of perl");
   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
 }
-struct netent *getnetbyname( char *name) {
+__sockadapt_my_netent_t getnetbyname( __sockadapt_my_name_t name) {
   croak("Function \"getnetbyname\" not implemented in this version of perl");
   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
 }
-struct netent *getnetent() {
+__sockadapt_my_netent_t getnetent() {
   croak("Function \"getnetent\" not implemented in this version of perl");
   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
 }
 void setnetent() {
   croak("Function \"setnetent\" not implemented in this version of perl");
 }
+void endnetent() {
+  croak("Function \"endnetent\" not implemented in this version of perl");
+}