The precise combination of braces, ifdefs, and blank lines in change 9608
made for a failed compile with DEC C V5.2-003 on OpenVMS Alpha V7.1. The
patch here fixes it and also repairs a message typo in xsubpp. The compile
error is given at the end of this message. After the patch, the -des build
was successful and there were no unexpected test failures.
--- ext/IO/IO.xs;-0 Sat Apr 7 10:53:16 2001
+++ ext/IO/IO.xs Sun Apr 8 12:00:45 2001
@@ -427,10 +427,9 @@
#ifdef HAS_SOCKATMARK
RETVAL = sockatmark(fd);
#else
-# ifdef SIOCATMARK
{
int flag = 0;
-
+# ifdef SIOCATMARK
if (ioctl(fd, SIOCATMARK, &flag) != 0)
XSRETURN_UNDEF;
# else
--- lib/ExtUtils/xsubpp;-0 Tue Mar 27 08:46:35 2001
+++ lib/ExtUtils/xsubpp Sun Apr 8 11:49:55 2001
@@ -996,7 +996,7 @@
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
[end of patch]
CC/DECC
/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/Define=("VERSION=""1.20""","XS_VERSION=""1.20""")/Include=([--]
)/Optimize IO.c
XSRETURN(1);
....^
%CC-E-DECLARATOR, Invalid declarator.
at line number 613 in file DISK8:[BERRYC.PERL.EXT.IO]IO.C;1
RETVAL = flag;
................^
%CC-E-UNDECLARED, In this statement, "flag" is not declared.
at line number 439 in file DISK8:[BERRYC.PERL.EXT.IO]IO.XS;1
if (RETVAL != -1) {
............^
%CC-E-UNDECLARED, In this statement, "RETVAL" is not declared.
at line number 606 in file DISK8:[BERRYC.PERL.EXT.IO]IO.C;1
