From ad824fcd6a80b08188110f74c26afa0417b377b1 Mon Sep 17 00:00:00 2001
From: Love Hornquist Astrand <lha@h5l.org>
Date: Fri, 19 Jul 2013 14:40:37 +0200
Subject: [PATCH] remove bit that might make old perl fail

---
 cf/make-proto.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cf/make-proto.pl b/cf/make-proto.pl
index 8f3641972..5b2c03d48 100644
--- a/cf/make-proto.pl
+++ b/cf/make-proto.pl
@@ -120,7 +120,7 @@ while(<>) {
 	s/^\s*//;
 	s/\s*$//;
 	s/\s+/ /g;
-	if($_ =~ /\)/){
+	if($_ =~ /\)$/){
 	    if(!/^static/ && !/^PRIVATE/){
 		$attr = "";
 		if(m/(.*)(__attribute__\s?\(.*\))/) {
@@ -310,7 +310,7 @@ foreach(sort keys %funcs){
 	$beginblock = $endblock = "";
     }
     # if we have an export table and doesn't have content, or matches private RE
-    if(((scalar keys %exported) ne 0 && !exists $exported{$_} ) || /$private_func_re/) {
+    if((scalar(keys(%exported)) ne 0 && !exists $exported{$_} ) || /$private_func_re/) {
 	$private_h .= $beginblock;
 #	if ($apple and not /$private_func_re/) {
 #	    $private_h .= "#define $_ __ApplePrivate_${_}\n";