remove bit that might make old perl fail

This commit is contained in:
Love Hornquist Astrand
2013-07-19 14:40:37 +02:00
parent bf69625424
commit ad824fcd6a

View File

@@ -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";