Fix various incorrect error function codes.

[openssl.git] / util / ck_errf.pl

diff --git a/util/ck_errf.pl b/util/ck_errf.pl
index 2b571e2412fc83715538701f937441f9796dfddd..5bfab700c08674ea01393c038a38db4be6e295c5 100755 (executable)
--- a/util/ck_errf.pl
+++ b/util/ck_errf.pl
@@ -13,7 +13,7 @@ foreach $file (@ARGV)
        $func="";
        while (<IN>)
                {
        $func="";
        while (<IN>)
                {

-               if (!/;$/ && /^([a-zA-Z].+[\s*])?([A-Za-z_0-9]+)\(.*\)/)
+               if (!/;$/ && /^([a-zA-Z].+[\s*])?([A-Za-z_0-9]+)\(.*[\),]/)

                        {
                        $func=$2;
                        $func =~ tr/A-Z/a-z/;
                        {
                        $func=$2;
                        $func =~ tr/A-Z/a-z/;