| Subject: | Reinstate OpenVMS support in Bit::Vector |
Hello,
I tried to install Bit::Vector 7.1 with Perl 5.12.2 on OpenVMS 8.3-1H1,
but failed. This is due to the fact that the routine names
BitVector_lsb
BitVector_LSB
and
BitVector_msb
BitVector_MSB
in Vector.xs resolve under standard compilation in OpenVMS to the same
(uppercase) names.
This had been fixed in Bit::Vector in the past. I still had a 6.4
version around and applying the same solution to the current 7.1 gave a
perfectly working result for me:
*** Vector.xs.orig 2010-12-10 05:07:47.134740750 -0600
--- Vector.xs 2010-12-10 05:09:51.415677099 -0600
***************
*** 1496,1502 ****
else BIT_VECTOR_OBJECT_ERROR;
}
!
void
BitVector_LSB(reference,bit)
BitVector_Object reference
--- 1496,1505 ----
else BIT_VECTOR_OBJECT_ERROR;
}
! #ifdef VMS
! #pragma names save
! #pragma names as_is
! #endif
void
BitVector_LSB(reference,bit)
BitVector_Object reference
***************
*** 1539,1544 ****
--- 1542,1550 ----
}
else BIT_VECTOR_OBJECT_ERROR;
}
+ #ifdef VMS
+ #pragma names restore
+ #endif
boolean
If would be great if you would be willing to add this again to the next
version of Bit::Vector
Greetings,
Martin