diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-04-08 07:30:16 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-08 17:16:33 +0000 |
| commit | 6d08728071a502590f8895c660cb45c7b5c7a87c (patch) | |
| tree | be61f3c82c33ceb8041c3dbe18e61a50616e0373 /ext/IO | |
| parent | 4e860d0a93684529dc8581a572242f17b59cc3bb (diff) | |
| download | perl-6d08728071a502590f8895c660cb45c7b5c7a87c.tar.gz | |
fix IO.xs compile failure on VMS
Message-Id: <5.0.2.1.0.20010408120154.02675eb8@exchi01>
p4raw-id: //depot/perl@9635
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.xs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 316075f001..8bdc133126 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -427,10 +427,9 @@ sockatmark (sock) #ifdef HAS_SOCKATMARK RETVAL = sockatmark(fd); #else -# ifdef SIOCATMARK { int flag = 0; - +# ifdef SIOCATMARK if (ioctl(fd, SIOCATMARK, &flag) != 0) XSRETURN_UNDEF; # else |