--- AnyEvent/constants.pl.PL 2010/02/21 09:28:18 1.1 +++ AnyEvent/constants.pl.PL 2010/03/12 23:30:06 1.2 @@ -17,10 +17,10 @@ use Fcntl (); -i F_SETFL => Fcntl::F_SETFL(); -i F_SETFD => Fcntl::F_SETFD(); -i O_NONBLOCK => Fcntl::O_NONBLOCK(); -i FD_CLOEXEC => Fcntl::FD_CLOEXEC(); +i F_SETFL => eval { Fcntl::F_SETFL() }; +i F_SETFD => eval { Fcntl::F_SETFD() }; +i O_NONBLOCK => eval { Fcntl::O_NONBLOCK() }; +i FD_CLOEXEC => eval { Fcntl::FD_CLOEXEC() }; print "package AnyEvent::Util;\n"; @@ -38,8 +38,8 @@ my $af_inet6; -$af_inet6 ||= eval { use Socket ; Socket::AF_INET6 () }; -$af_ine6t ||= eval { use Socket6; Socket6::AF_INET6() }; +$af_inet6 ||= eval { require Socket ; Socket::AF_INET6 () }; +$af_ine6t ||= eval { require Socket6; Socket6::AF_INET6() }; # uhoh $af_inet6 ||= 10 if $^O =~ /linux/;