--- AnyEvent/lib/AnyEvent.pm 2010/10/12 06:51:15 1.334 +++ AnyEvent/lib/AnyEvent.pm 2010/12/03 18:39:06 1.340 @@ -1169,7 +1169,7 @@ use Carp (); -our $VERSION = '5.271'; +our $VERSION = '5.29'; our $MODEL; our $AUTOLOAD; @@ -1293,7 +1293,7 @@ } $MODEL - or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.\n"; + or die "AnyEvent: backend autodetection failed - did you properly install AnyEvent?\n"; } } @@ -1302,14 +1302,18 @@ push @{"$MODEL\::ISA"}, "AnyEvent::Base"; unshift @ISA, $MODEL; - # now nuke some methods that are overriden by the backend. + # now nuke some methods that are overridden by the backend. # SUPER is not allowed. for (qw(time signal child idle)) { undef &{"AnyEvent::Base::$_"} if defined &{"$MODEL\::$_"}; } - require AnyEvent::Strict if $ENV{PERL_ANYEVENT_STRICT}; + if ($ENV{PERL_ANYEVENT_STRICT}) { + eval { require AnyEvent::Strict }; + warn "AnyEvent: cannot load AnyEvent::Strict: $@" + if $@ && $VERBOSE; + } (shift @post_detect)->() while @post_detect; @@ -2681,7 +2685,7 @@ Asynchronous DNS: L. -Thread support: L, L, L, +Thread support: L, L, L, L. Nontrivial usage examples: L, L, L.