*** 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]+)');