--- AnyEvent/lib/AnyEvent.pm	2010/10/12 06:51:15	1.334
+++ AnyEvent/lib/AnyEvent.pm	2011/02/24 12:04:20	1.348
@@ -87,12 +87,12 @@
 
 AnyEvent is different: AnyEvent + POE works fine. AnyEvent + Glib works
 fine. AnyEvent + Tk works fine etc. etc. but none of these work together
-with the rest: POE + IO::Async? No go. Tk + Event? No go. Again: if
-your module uses one of those, every user of your module has to use it,
-too. But if your module uses AnyEvent, it works transparently with all
-event models it supports (including stuff like IO::Async, as long as those
-use one of the supported event loops. It is easy to add new event loops
-to AnyEvent, too, so it is future-proof).
+with the rest: POE + EV? No go. Tk + Event? No go. Again: if your module
+uses one of those, every user of your module has to use it, too. But if
+your module uses AnyEvent, it works transparently with all event models it
+supports (including stuff like IO::Async, as long as those use one of the
+supported event loops. It is easy to add new event loops to AnyEvent, too,
+so it is future-proof).
 
 In addition to being free of having to use I<the one and only true event
 model>, AnyEvent also is free of bloat and policy: with POE or similar
@@ -878,6 +878,8 @@
    AnyEvent::Impl::EventLib  based on Event::Lib, leaks memory and worse.
    AnyEvent::Impl::POE       based on POE, very slow, some limitations.
    AnyEvent::Impl::Irssi     used when running within irssi.
+   AnyEvent::Impl::IOAsync   based on IO::Async.
+   AnyEvent::Impl::Cocoa     based on Cocoa::EventLoop.
 
 =item Backends with special needs.
 
@@ -888,14 +890,6 @@
 
    AnyEvent::Impl::Qt        based on Qt.
 
-Support for IO::Async can only be partial, as it is too broken and
-architecturally limited to even support the AnyEvent API. It also
-is the only event loop that needs the loop to be set explicitly, so
-it can only be used by a main program knowing about AnyEvent. See
-L<AnyEvent::Impl::IOAsync> for the gory details.
-
-   AnyEvent::Impl::IOAsync   based on IO::Async, cannot be autoprobed.
-
 =item Event loops that are indirectly supported via other backends.
 
 Some event loops can be supported via other modules:
@@ -1159,8 +1153,8 @@
 
 # basically a tuned-down version of common::sense
 sub common_sense {
-   # from common:.sense 3.3
-   ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf3\x0f\xc0\xf0\xfc\x33\x00";
+   # from common:.sense 3.4
+   ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00";
    # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl)
    $^H |= 0x00000600;
 }
@@ -1169,7 +1163,7 @@
 
 use Carp ();
 
-our $VERSION = '5.271';
+our $VERSION = '5.33';
 our $MODEL;
 
 our $AUTOLOAD;
@@ -1217,14 +1211,8 @@
    [POE::Kernel::          => AnyEvent::Impl::POE::],      # lasciate ogni speranza
    [Wx::                   => AnyEvent::Impl::POE::],
    [Prima::                => AnyEvent::Impl::POE::],
-   # IO::Async is just too broken - we would need workarounds for its
-   # byzantine signal and broken child handling, among others.
-   # IO::Async is rather hard to detect, as it doesn't have any
-   # obvious default class.
-   [IO::Async::               => AnyEvent::Impl::IOAsync::], # requires special main program
-   [IO::Async::Loop::         => AnyEvent::Impl::IOAsync::], # requires special main program
-   [IO::Async::Notifier::     => AnyEvent::Impl::IOAsync::], # requires special main program
-   [AnyEvent::Impl::IOAsync:: => AnyEvent::Impl::IOAsync::], # requires special main program
+   [IO::Async::Loop::      => AnyEvent::Impl::IOAsync::],
+   [Cocoa::EventLoop::     => AnyEvent::Impl::Cocoa::],
 );
 
 our %method = map +($_ => 1),
@@ -1293,7 +1281,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 +1290,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;
 
@@ -1626,7 +1618,6 @@
 our %PID_CB;
 our $CHLD_W;
 our $CHLD_DELAY_W;
-our $WNOHANG;
 
 # used by many Impl's
 sub _emit_childstatus($$) {
@@ -1643,7 +1634,7 @@
          my $pid;
 
          AnyEvent->_emit_childstatus ($pid, $?)
-            while ($pid = waitpid -1, $WNOHANG) > 0;
+            while ($pid = waitpid -1, WNOHANG) > 0;
       };
 
       *child = sub {
@@ -1654,11 +1645,6 @@
 
          $PID_CB{$pid}{$arg{cb}} = $arg{cb};
 
-         # WNOHANG is almost cetrainly 1 everywhere
-         $WNOHANG ||= $^O =~ /^(?:openbsd|netbsd|linux|freebsd|cygwin|MSWin32)$/
-                      ? 1
-                      : eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
-
          unless ($CHLD_W) {
             $CHLD_W = AE::signal CHLD => \&_sigchld;
             # child could be a zombie already, so make at least one round
@@ -2681,7 +2667,7 @@
 
 Asynchronous DNS: L<AnyEvent::DNS>.
 
-Thread support: L<Coro>, L<Coro::AnyEvent>, L<Coro::EV L<Coro::Event    >,
+Thread support: L<Coro>, L<Coro::AnyEvent>, L<Coro::EV>, L<Coro::Event>.
 
 Nontrivial usage examples: L<AnyEvent::GPSD>, L<AnyEvent::IRC>,
 L<AnyEvent::HTTP>.