oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

remove bit that might make old perl fail

Browse Source
This commit is contained in:
Love Hornquist Astrand
2013-07-19 14:40:37 +02:00
parent bf69625424
commit ad824fcd6a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cf/make-proto.pl
View File

@@ -120,7 +120,7 @@ while(<>) {
s/^\s*//; s/^\s*//;
s/\s*$//; s/\s*$//;
s/\s+/ /g; s/\s+/ /g;
if($_ =~ /\)/){ if($_ =~ /\)$/){
if(!/^static/ && !/^PRIVATE/){ if(!/^static/ && !/^PRIVATE/){
$attr = ""; $attr = "";
if(m/(.*)(__attribute__\s?\(.*\))/) { if(m/(.*)(__attribute__\s?\(.*\))/) {
@@ -310,7 +310,7 @@ foreach(sort keys %funcs){
$beginblock = $endblock = ""; $beginblock = $endblock = "";
} }
# if we have an export table and doesn't have content, or matches private RE # 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; $private_h .= $beginblock;
# if ($apple and not /$private_func_re/) { # if ($apple and not /$private_func_re/) {
# $private_h .= "#define $_ __ApplePrivate_${_}\n"; # $private_h .= "#define $_ __ApplePrivate_${_}\n";