cleanslurp();
! slurp('sys/socket.h'); # parse sys/socket.h and its #includes
fill(\%fam,\%unique,'^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)');
# repeat in case symbol dependencies are out of order
cleanslurp();
! slurp('sys/socket.h');
fill(\%fam,'','^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)');
--- 190,209 ----
}
}
+ sub guess {
+ my $path = shift;
+ return $path if (-e $Config{usrinc} .'/'. $path);
+ }
cleanslurp();
!
! my $socket_h = guess('sys/socket.h') || guess('x86_64-linux-gnu/bits/socket.h') || guess('i386-linux-gnu/bits/socket.h');
! slurp($socket_h); # parse sys/socket.h and its #includes
fill(\%fam,\%unique,'^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)');
# repeat in case symbol dependencies are out of order
cleanslurp();
! slurp($socket_h);
fill(\%fam,'','^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)');
