Fix various incorrect error function codes.
[openssl.git] / util / ck_errf.pl
index 2b571e2..5bfab70 100755 (executable)
@@ -13,7 +13,7 @@ foreach $file (@ARGV)
        $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/;