From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 24 Mar 1996 07:29:48 +0000 (+0000)
Subject: Add getpeername() shim
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84753aa1a29ad529efb89c699f7dfe36f28b0297;p=p5sagit%2Fp5-mst-13.2.git

Add getpeername() shim
---

diff --git a/vms/sockadapt.h b/vms/sockadapt.h
index 18f4002..041fbd7 100644
--- a/vms/sockadapt.h
+++ b/vms/sockadapt.h
@@ -140,3 +140,11 @@ void endnetent();
 #endif
 #define fileno si_fileno
 int si_fileno(FILE *);
+
+
+/* Catch erroneous results for UDP sockets -- see sockadapt.c */
+#ifdef getpeername
+#  undef getpeername
+#endif
+#define getpeername my_getpeername
+int my_getpeername _((int, struct sockaddr *, int *));