--- AnyEvent/lib/AnyEvent.pm 2008/08/20 12:37:21 1.176 +++ AnyEvent/lib/AnyEvent.pm 2008/09/04 10:58:58 1.179 @@ -856,7 +856,7 @@ use Carp; -our $VERSION = 4.231; +our $VERSION = 4.233; our $MODEL; our $AUTOLOAD; @@ -1018,10 +1018,17 @@ # default implementation for now and time -use Time::HiRes (); +BEGIN { + if (eval "use Time::HiRes (); time (); 1") { + *_time = \&Time::HiRes::time; + # if (eval "use POSIX (); (POSIX::times())... + } else { + *_time = \&CORE::time; # epic fail + } +} -sub time { Time::HiRes::time } -sub now { Time::HiRes::time } +sub time { _time } +sub now { _time } # default implementation for ->condvar