if ( $SYSTEM eq 'OpenVMS' ) {
my $v = `CC/VERSION NLA0:`;
if ($? == 0) {
+ # The normal releases have a version number prefixed with a V.
+ # However, other letters have been seen as well (for example X),
+ # and it's documented that HP (now VSI) reserve the letter W, X,
+ # Y and Z for their own uses.
my ($vendor, $version) =
- ( $v =~ m/^([A-Z]+) C V([0-9\.-]+) on / );
+ ( $v =~ m/^([A-Z]+) C [VWXYZ]([0-9\.-]+)(:? +\(.*?\))? on / );
my ($major, $minor, $patch) =
( $version =~ m/^([0-9]+)\.([0-9]+)-0*?(0|[1-9][0-9]*)$/ );
$CC = 'CC';