ok
Direktori : /lib64/perl5/bits/ |
Current File : //lib64/perl5/bits/select2.ph |
require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SELECT_H)) { die("Never include <bits/select2.h> directly; use <sys/select.h> instead."); } undef(&__FD_ELT) if defined(&__FD_ELT); unless(defined(&__FD_ELT)) { sub __FD_ELT { my($d) = @_; eval q( &__extension__ ({ 'long int __d' = ($d); ( &__builtin_constant_p ( &__d) ? (0<= &__d && &__d < &__FD_SETSIZE ? ( &__d / &__NFDBITS) : &__fdelt_warn ( &__d)) : &__fdelt_chk ( &__d)); })); } } 1;