fix SSLerr stuff for DTLS1 code;

[openssl.git] / util / ck_errf.pl

diff --git a/util/ck_errf.pl b/util/ck_errf.pl
index 7a24d6c5a2e2909b7d0aff27e876933636d3d428..2b571e2412fc83715538701f937441f9796dfddd 100755 (executable)
--- a/util/ck_errf.pl
+++ b/util/ck_errf.pl
@@ -13,9 +13,9 @@ 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=$1;
+                       $func=$2;
                        $func =~ tr/A-Z/a-z/;
                        }
                if (/([A-Z0-9]+)err\(([^,]+)/)