*** Net-Interface-1.012/inst/netsymbols.pl 2009-03-23 13:55:30.000000000 -0700
--- Net-Interface-1.012.patched/inst/netsymbols.pl 2014-04-08 07:53:29.880024588 -0700
***************
*** 189,202 ****
}
}
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]+)');
