From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 8 Apr 2001 12:30:16 +0000 (-0500)
Subject: fix IO.xs compile failure on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d08728071a502590f8895c660cb45c7b5c7a87c;hp=4e860d0a93684529dc8581a572242f17b59cc3bb;p=p5sagit%2Fp5-mst-13.2.git

fix IO.xs compile failure on VMS
Message-Id: <5.0.2.1.0.20010408120154.02675eb8@exchi01>

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

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 316075f..8bdc133 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
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index c4287b7..0c91e29 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -996,7 +996,7 @@ while (fetch_para()) {
 
     death ("Code is not inside a function"
 	   ." (maybe last function was ended by a blank line "
-	   ." followed by a a statement on column one?)")
+	   ." followed by a statement on column one?)")
 	if $line[0] =~ /^\s/;
 
     # initialize info arrays