diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-19 02:26:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-19 02:26:47 +0000 |
| commit | af48980719461555feaeae2056f887abcdb12e17 (patch) | |
| tree | 636d6a3f1d0d48e3c06966f2274815ad6e74d5b6 /perlio.c | |
| parent | b93ec261ef434559b61f5e4489e279c3d26b5a6e (diff) | |
| download | perl-af48980719461555feaeae2056f887abcdb12e17.tar.gz | |
Compilation nit noticed by AIX compiler.
p4raw-id: //depot/perl@9751
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 |