OpenSSL: openssl/util/ mkerr.pl

  OpenSSL CVS Repository
  http://cvs.openssl.org/
 
____________________________________________________________
________________

  Server: cvs.openssl.org                  Name:   Ben
Laurie
  Root:   /v/openssl/cvs                   Email:  benopenssl.org
  Module: openssl                          Date:  
05-Apr-2007 19:03:09
  Branch: HEAD                             Handle:
2007040518030900

  Modified files:
    openssl/util            mkerr.pl

  Log:
    Errors should actually be errors.

  Summary:
    Revision    Changes     Path
    1.35        +11 -0      openssl/util/mkerr.pl
 
____________________________________________________________
________________

  patch -p0 <<' .'
  Index: openssl/util/mkerr.pl
 
============================================================
================
  $ cvs diff -u -r1.34 -r1.35 mkerr.pl
  --- openssl/util/mkerr.pl	26 Feb 2007 10:48:10 -0000	1.34
  +++ openssl/util/mkerr.pl	5 Apr 2007 17:03:09 -0000	1.35
   -13,6 +13,8 
   my $pack_errcode;
   my $load_errcode;
   
  +my $errcount;
  +
   while (ARGV) {
   	my $arg = $ARGV[0];
   	if($arg eq "-conf") {
   -195,6 +197,7 
   				$rcodes{$name} = $code;
   				if ($rassigned{$lib} =~ /:$code:/) {
   					print STDERR "!! ERROR: $lib reason code $code
assigned twicen";
  +					++$errcount;
   				}
   				$rassigned{$lib} .= "$code:";
   				if(!(exists $rextra{$name}) &&
   -204,6 +207,7 
   			} else {
   				if ($fassigned{$lib} =~ /:$code:/) {
   					print STDERR "!! ERROR: $lib function code
$code assigned twicen";
  +					++$errcount;
   				}
   				$fassigned{$lib} .= "$code:";
   				if($code > $fmax{$lib}) {
   -234,6 +238,7 
   		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";
  +			++$errcount;
   			print STDERR "n";
   		}
   	}
   -723,3 +728,9 
   		print STDERR "$_n";
   	}
   }
  +
  +if($errcount) {
  +	print STDERR "There were errors,
failing...nn";
  +	exit $errcount;
  +}
  +
   .
____________________________________________________________
__________
OpenSSL Project                                 http://www.openssl.org
CVS Repository Commit List                    
openssl-cvsopenssl.org
Automated List Manager                          
majordomoopenssl.org