diff options
author | Richard Levitte <levitte@openssl.org> | 2018-06-11 10:33:09 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2018-06-11 16:44:30 +0200 |
commit | 9a236d5a7158d38b933656cacc31dfd4ff4fcc08 (patch) | |
tree | 6951e77242b5bca613a0c28a3fc6fdae76980d88 | |
parent | e13d8f7ba4681f904cba71558168965697b76a17 (diff) |
VMS: have mkdef.pl parse lettered versions properly
Fixes #6449
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/6450)
-rwxr-xr-x | util/mkdef.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index eb303e603b..823cb664d0 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -1336,7 +1336,7 @@ EOF } elsif ($VMS) { print OUT ")\n"; (my $libvmaj, my $libvmin, my $libvedit) = - $currversion =~ /^(\d+)_(\d+)_(\d+)$/; + $currversion =~ /^(\d+)_(\d+)_(\d+)[a-z]{0,2}$/; # The reason to multiply the edit number with 100 is to make space # for the possibility that we want to encode the patch letters print OUT "GSMATCH=LEQUAL,",($libvmaj * 100 + $libvmin),",",($libvedit * 100),"\n"; |