From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Nov 2001 00:17:28 +0000 (+0000)
Subject: xsubpp treats invalid (indented) cpp directives as comments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f754b6e04344843dca3f2d712057fdc882abe10b;p=p5sagit%2Fp5-mst-13.2.git

xsubpp treats invalid (indented) cpp directives as comments

p4raw-id: //depot/perl@13248
---

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 6741905..92a51b6 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");