diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-24 07:29:48 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-24 07:29:48 +0000 |
| commit | 84753aa1a29ad529efb89c699f7dfe36f28b0297 (patch) | |
| tree | e6a1b73570f70da49f9ccf6f678c8056db7df07d | |
| parent | 42084d09ce1dc5746ea524ec4acdba6f45ae3355 (diff) | |
| download | perl-84753aa1a29ad529efb89c699f7dfe36f28b0297.tar.gz | |
Add getpeername() shim
| -rw-r--r-- | vms/sockadapt.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/vms/sockadapt.h b/vms/sockadapt.h index 18f4002f12..041fbd7073 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 *)); |