In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/2c2a0333a3ed741936061d62c34841ac818962dc?hp=f02f05df122ba1cf155b1bfda0f1ef96615f2278>
- Log -----------------------------------------------------------------
commit 2c2a0333a3ed741936061d62c34841ac818962dc
Author: Daniel Dragan <bul...@hotmail.com>
Date: Mon Nov 18 23:26:05 2013 -0500
ioctl on perlhost platforms take a char*, not void*
As of commit 0cb9638729 IOCtl from perlhost is prototyped to take a char *.
In the later commit 2986a63f7e5 the netware commit is introduced that adds
a void* cast without explination, but today PerlLIOIOCtl is prototyped as
char* in nwperlhost.h (nwperlhost.h didnt exist at 2986a63f7e5 ). In
commit 6e22d04617 Win32 starts to use the void * cast from netware.
Using a void * cast breaks a VC 2003 C++ mode build of IO.xs because of
different types. Switch to a char * cast that matches the vtable prototype.
-----------------------------------------------------------------------
Summary of changes:
dist/IO/IO.xs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
index efb0ed6..360b067 100644
--- a/dist/IO/IO.xs
+++ b/dist/IO/IO.xs
@@ -540,7 +540,7 @@ sockatmark (sock)
int flag = 0;
# ifdef SIOCATMARK
# if defined(NETWARE) || defined(WIN32)
- if (ioctl(fd, SIOCATMARK, (void*)&flag) != 0)
+ if (ioctl(fd, SIOCATMARK, (char*)&flag) != 0)
# else
if (ioctl(fd, SIOCATMARK, &flag) != 0)
# endif
--
Perl5 Master Repository
