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 (file)
--- 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");