Edit file File name : sockaddr.ph Content :require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SOCKADDR_H)) { eval 'sub _BITS_SOCKADDR_H () {1;}' unless defined(&_BITS_SOCKADDR_H); eval 'sub __SOCKADDR_COMMON { my($sa_prefix) = @_; eval q( &sa_family_t $sa_prefix &family); }' unless defined(&__SOCKADDR_COMMON); eval 'sub __SOCKADDR_COMMON_SIZE () {($sizeof{\'unsigned short int\'});}' unless defined(&__SOCKADDR_COMMON_SIZE); eval 'sub _SS_SIZE () {128;}' unless defined(&_SS_SIZE); } 1; Save