diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /ext/IO | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.xs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 8bdc133126..ef91a97792 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -430,7 +430,11 @@ sockatmark (sock) { int flag = 0; # ifdef SIOCATMARK - if (ioctl(fd, SIOCATMARK, &flag) != 0) + #ifdef NETWARE + if (ioctl(fd, SIOCATMARK, (void*)&flag) != 0) + #else + if (ioctl(fd, SIOCATMARK, &flag) != 0) + #endif XSRETURN_UNDEF; # else not_here("IO::Socket::atmark"); |