Commit 0ffdaebf authored by Richard Levitte's avatar Richard Levitte
Browse files

util/mkerr.pl: avoid getting an annoying warning about negative count 



Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3781)
parent 4b2799c1

util/mkerr.pl

+2 −0
Original line number Diff line number Diff line
@@ -486,6 +486,7 @@ EOF 
    print OUT "\n/*\n * $lib function codes.\n */\n";

    foreach my $i ( @function ) {

        my $z = 48 - length($i);

        $z = 0 if $z < 0;

        if ( $fcodes{$i} eq "X" ) {

            $fassigned{$lib} =~ m/^:([^:]*):/;

            my $findcode = $1;
@@ -503,6 +504,7 @@ EOF 
    print OUT "\n/*\n * $lib reason codes.\n */\n";

    foreach my $i ( @reasons ) {

        my $z = 48 - length($i);

        $z = 0 if $z < 0;

        if ( $rcodes{$i} eq "X" ) {

            $rassigned{$lib} =~ m/^:([^:]*):/;

            my $findcode = $1;