From f754b6e04344843dca3f2d712057fdc882abe10b Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Nov 2001 00:17:28 +0000
Subject: xsubpp treats invalid (indented) cpp directives as comments

p4raw-id: //depot/perl@13248
---
 ext/IO/IO.xs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'ext/IO/IO.xs')

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");
-- 
cgit v1.2.1