From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 19 Apr 2001 02:26:47 +0000 (+0000)
Subject: Compilation nit noticed by AIX compiler.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af48980719461555feaeae2056f887abcdb12e17;p=p5sagit%2Fp5-mst-13.2.git

Compilation nit noticed by AIX compiler.

p4raw-id: //depot/perl@9751
---

diff --git a/perlio.c b/perlio.c
index c82da9b..a2289e3 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2093,12 +2093,13 @@ PerlIOStdio_close(PerlIO *f)
 {
  dTHX;
 #ifdef HAS_SOCKS5_INIT
- int optval, optlen = sizeof(int);
+ int optval;
+ Sock_size_t optlen = sizeof(int);
 #endif
  FILE *stdio = PerlIOSelf(f,PerlIOStdio)->stdio;
  return(
 #ifdef HAS_SOCKS5_INIT
-   (getsockopt(PerlIO_fileno(f), SOL_SOCKET, SO_TYPE, (char *)&optval, &optlen) < 0) ?
+   (getsockopt(PerlIO_fileno(f), SOL_SOCKET, SO_TYPE, (void *)&optval, &optlen) < 0) ?
        PerlSIO_fclose(stdio) :
        close(PerlIO_fileno(f))
 #else