diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2009-08-12 17:08:44 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2009-08-12 17:08:44 +0000 |
commit | 5a96822f2c6e4827b870b0071a5718b81c649b90 (patch) | |
tree | 20600600be1389560a5b99f9b62d0b45fd0aebe1 /util/ck_errf.pl | |
parent | 23b34259e04b90bc62a2a3d5fb03ca553ca28488 (diff) |
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; + } + |