diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2009-08-12 19:30:37 +0200 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2009-08-12 19:30:37 +0200 |
| commit | 3ed3603b60abf3814b7ba778216e33454f3e3235 (patch) | |
| tree | cd880deda81a438580fbfa41f5c99e35459de5ba /util/ck_errf.pl | |
| parent | Enable mdc2 support by default as the patent has now expired. (diff) | |
| download | openssl-3ed3603b60abf3814b7ba778216e33454f3e3235.tar.xz openssl-3ed3603b60abf3814b7ba778216e33454f3e3235.zip | |
Update default dependency flags.
Make error name discrepancies a fatal error.
Fix error codes.
make update
Diffstat (limited to 'util/ck_errf.pl')
| -rwxr-xr-x | util/ck_errf.pl | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/util/ck_errf.pl b/util/ck_errf.pl index fd6becc423..f13af5c50b 100755 --- a/util/ck_errf.pl +++ b/util/ck_errf.pl @@ -7,8 +7,16 @@ # perl util/ck_errf.pl */*.c */*/*.c # +my $err_strict = 0; +my $bad = 0; + foreach $file (@ARGV) { + if ($file eq "-strict") + { + $err_strict = 1; + next; + } open(IN,"<$file") || die "unable to open $file\n"; $func=""; while (<IN>) @@ -26,7 +34,7 @@ foreach $file (@ARGV) $n=$2; if ($func eq "") - { print "$file:$.:???:$n\n"; next; } + { print "$file:$.:???:$n\n"; $bad = 1; next; } if ($n !~ /([^_]+)_F_(.+)$/) { @@ -37,14 +45,20 @@ foreach $file (@ARGV) $n=$2; if ($lib ne $errlib) - { print "$file:$.:$func:$n [${errlib}err]\n"; next; } + { print "$file:$.:$func:$n [${errlib}err]\n"; $bad = 1; next; } $n =~ tr/A-Z/a-z/; if (($n ne $func) && ($errlib ne "SYS")) - { print "$file:$.:$func:$n\n"; next; } + { print "$file:$.:$func:$n\n"; $bad = 1; next; } # print "$func:$1\n"; } } close(IN); } +if ($bad && $err_strict) + { + print STDERR "FATAL: error discrepancy\n"; + exit 1; + } + |