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 3af91744c5f2bfee1f5f5651c08ea23b905879d8..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\(([^,]+)/)
@@ -40,5 +40,6 @@ foreach $file (@ARGV)
        #               print "$func:$1\n";
                        }
                }
+       close(IN);
         }