From 6d08728071a502590f8895c660cb45c7b5c7a87c Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 8 Apr 2001 07:30:16 -0500 Subject: [PATCH] fix IO.xs compile failure on VMS Message-Id: <5.0.2.1.0.20010408120154.02675eb8@exchi01> p4raw-id: //depot/perl@9635 --- ext/IO/IO.xs | 3 +-- lib/ExtUtils/xsubpp | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) 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 -- 2.7.4