diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-04-08 07:30:16 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-08 17:16:33 +0000 |
| commit | 6d08728071a502590f8895c660cb45c7b5c7a87c (patch) | |
| tree | be61f3c82c33ceb8041c3dbe18e61a50616e0373 | |
| parent | 4e860d0a93684529dc8581a572242f17b59cc3bb (diff) | |
| download | perl-6d08728071a502590f8895c660cb45c7b5c7a87c.tar.gz | |
fix IO.xs compile failure on VMS
Message-Id: <5.0.2.1.0.20010408120154.02675eb8@exchi01>
p4raw-id: //depot/perl@9635
| -rw-r--r-- | ext/IO/IO.xs | 3 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 316075f001..8bdc133126 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 c4287b79c9..0c91e2924f 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 |