Detect SSL error code mishandling.

[openssl.git] / util / mkerr.pl

diff --git a/util/mkerr.pl b/util/mkerr.pl
index 4cb48f996450fb69ac2f12e5201f4ffa1afbd0f3..a5ba05a7966d7593eb519b626a973960b0cd8b19 100644 (file)
--- a/util/mkerr.pl
+++ b/util/mkerr.pl
@@ -205,6 +205,13 @@ while (($hdr, $lib) = each %libinc)
                }
        }
 
+       if ($lib eq "SSL") {
+               if ($rmax{$lib} >= 1000) {
+                       print STDERR "!! ERROR: SSL error codes 1000+ are reserved for alerts.\n";
+                       print STDERR "!!        Any new alerts must be added to $config.\n";
+                       print STDERR "\n";
+               }
+       }
        close IN;
 }