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 (file)
--- 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 (executable)
--- 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