generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Errors should actually be errors.

Browse Source
This commit is contained in:
Ben Laurie 2007-04-05 17:03:09 +00:00
parent 8bbf6ac010
commit f3d2a9db09
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
util/mkerr.pl
View File

@ -13,6 +13,8 @@ my $staticloader = "";
my $pack_errcode; my $pack_errcode;
my $load_errcode; my $load_errcode;
my $errcount;
while (@ARGV) { while (@ARGV) {
my $arg = $ARGV[0]; my $arg = $ARGV[0];
if($arg eq "-conf") { if($arg eq "-conf") {
@ -195,6 +197,7 @@ while (($hdr, $lib) = each %libinc)
$rcodes{$name} = $code; $rcodes{$name} = $code;
if ($rassigned{$lib} =~ /:$code:/) { if ($rassigned{$lib} =~ /:$code:/) {
print STDERR "!! ERROR: $lib reason code $code assigned twice\n"; print STDERR "!! ERROR: $lib reason code $code assigned twice\n";
++$errcount;
} }
$rassigned{$lib} .= "$code:"; $rassigned{$lib} .= "$code:";
if(!(exists $rextra{$name}) && if(!(exists $rextra{$name}) &&
@ -204,6 +207,7 @@ while (($hdr, $lib) = each %libinc)
} else { } else {
if ($fassigned{$lib} =~ /:$code:/) { if ($fassigned{$lib} =~ /:$code:/) {
print STDERR "!! ERROR: $lib function code $code assigned twice\n"; print STDERR "!! ERROR: $lib function code $code assigned twice\n";
++$errcount;
} }
$fassigned{$lib} .= "$code:"; $fassigned{$lib} .= "$code:";
if($code > $fmax{$lib}) { if($code > $fmax{$lib}) {
@ -234,6 +238,7 @@ while (($hdr, $lib) = each %libinc)
if ($rmax{$lib} >= 1000) { if ($rmax{$lib} >= 1000) {
print STDERR "!! ERROR: SSL error codes 1000+ are reserved for alerts.\n"; 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 "!! Any new alerts must be added to $config.\n";
++$errcount;
print STDERR "\n"; print STDERR "\n";
} }
} }
@ -723,3 +728,9 @@ if($debug && defined(@runref) ) {
print STDERR "$_\n"; print STDERR "$_\n";
} }
} }
if($errcount) {
print STDERR "There were errors, failing...\n\n";
exit $errcount;
}