1 files changed, 4 insertions, 9 deletions

diff --git a/src/lib/libcrypto/util/ck_errf.pl b/src/lib/libcrypto/util/ck_errf.pl
index 344b422c34..7a24d6c5a2 100644
--- a/src/lib/libcrypto/util/ck_errf.pl
+++ b/src/lib/libcrypto/util/ck_errf.pl
@@ -13,21 +13,16 @@ 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]+)\(.*\)/)
                         {
-                        /^([^()]*(\([^()]*\)[^()]*)*)\(/;
-                        $1 =~ /([A-Za-z_0-9]*)$/;
-                        $func = $1;
+                        $func=$1;
                         $func =~ tr/A-Z/a-z/;
                         }
                 if (/([A-Z0-9]+)err\(([^,]+)/)
                         {
+                        next if ($func eq "");
                         $errlib=$1;
                         $n=$2;
-
-                        if ($func eq "")
-                                { print "$file:$.:???:$n\n"; next; }
-
                         if ($n !~ /([^_]+)_F_(.+)$/)
                                 {
                 #               print "check -$file:$.:$func:$n\n";
@@ -37,7 +32,7 @@ foreach $file (@ARGV)
                         $n=$2;
 
                         if ($lib ne $errlib)
-                                { print "$file:$.:$func:$n [${errlib}err]\n"; next; }
+                                { print "$file:$.:$func:$n\n"; next; }
 
                         $n =~ tr/A-Z/a-z/;
                         if (($n ne $func) && ($errlib ne "SYS"))