summaryrefslogtreecommitdiff
path: root/ext/IO
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2001-11-25 00:17:28 +0000
committerGurusamy Sarathy <gsar@cpan.org>2001-11-25 00:17:28 +0000
commitf754b6e04344843dca3f2d712057fdc882abe10b (patch)
tree7934c59c80e69687bed83d4312ea20dd99fea21e /ext/IO
parenta9bf183d39b7b7cea39e881e1ccf69b36bf2f899 (diff)
downloadperl-f754b6e04344843dca3f2d712057fdc882abe10b.tar.gz
xsubpp treats invalid (indented) cpp directives as comments
p4raw-id: //depot/perl@13248
Diffstat (limited to 'ext/IO')
-rw-r--r--ext/IO/IO.xs8
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 6741905b7b..92a51b6fb7 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -444,11 +444,11 @@ sockatmark (sock)
{
int flag = 0;
# ifdef SIOCATMARK
- #ifdef NETWARE
+# ifdef NETWARE
if (ioctl(fd, SIOCATMARK, (void*)&flag) != 0)
- #else
- if (ioctl(fd, SIOCATMARK, &flag) != 0)
- #endif
+# else
+ if (ioctl(fd, SIOCATMARK, &flag) != 0)
+# endif
XSRETURN_UNDEF;
# else
not_here("IO::Socket::atmark");