Commit 9a236d5a authored by Richard Levitte's avatar Richard Levitte
Browse files

VMS: have mkdef.pl parse lettered versions properly 



Fixes #6449

Reviewed-by: default avatarMatt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/6450)
parent e13d8f7b

util/mkdef.pl

+1 −1
Original line number Diff line number Diff line
@@ -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";