--- AnyEvent/lib/AnyEvent.pm	2010/02/15 18:02:35	1.312
+++ AnyEvent/lib/AnyEvent.pm	2010/03/15 18:51:30	1.316
@@ -1158,7 +1158,7 @@
 
 use Carp ();
 
-our $VERSION = '5.24';
+our $VERSION = '5.251';
 our $MODEL;
 
 our $AUTOLOAD;
@@ -1169,8 +1169,8 @@
 our $VERBOSE;
 
 BEGIN {
-   eval "sub CYGWIN(){" . (($^O =~ /cygwin/i) *1) . "}";
-   eval "sub WIN32 (){" . (($^O =~ /mswin32/i)*1) . "}";
+   require "AnyEvent/constants.pl";
+
    eval "sub TAINT (){" . (${^TAINT}          *1) . "}";
 
    delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}
@@ -1493,8 +1493,6 @@
       } else {
          warn "AnyEvent: using emulated perl signal handling with latency timer.\n" if $VERBOSE >= 8;
 
-         require Fcntl;
-
          if (AnyEvent::WIN32) {
             require AnyEvent::Util;
 
@@ -1503,12 +1501,12 @@
             AnyEvent::Util::fh_nonblocking ($SIGPIPE_W, 1) if $SIGPIPE_W; # just in case
          } else {
             pipe $SIGPIPE_R, $SIGPIPE_W;
-            fcntl $SIGPIPE_R, &Fcntl::F_SETFL, &Fcntl::O_NONBLOCK if $SIGPIPE_R;
-            fcntl $SIGPIPE_W, &Fcntl::F_SETFL, &Fcntl::O_NONBLOCK if $SIGPIPE_W; # just in case
+            fcntl $SIGPIPE_R, AnyEvent::F_SETFL, AnyEvent::O_NONBLOCK if $SIGPIPE_R;
+            fcntl $SIGPIPE_W, AnyEvent::F_SETFL, AnyEvent::O_NONBLOCK if $SIGPIPE_W; # just in case
 
             # not strictly required, as $^F is normally 2, but let's make sure...
-            fcntl $SIGPIPE_R, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC;
-            fcntl $SIGPIPE_W, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC;
+            fcntl $SIGPIPE_R, AnyEvent::F_SETFD, AnyEvent::FD_CLOEXEC;
+            fcntl $SIGPIPE_W, AnyEvent::F_SETFD, AnyEvent::FD_CLOEXEC;
          }
 
          $SIGPIPE_R
@@ -2528,6 +2526,9 @@
 C<kqueue>, and is the fastest backend I<by far>. You can even embed
 L<Glib>/L<Gtk2> in it (or vice versa, see L<EV::Glib> and L<Glib::EV>).
 
+If you only use backends that rely on another event loop (e.g. C<Tk>),
+then this module will do nothing for you.
+
 =item L<Guard>
 
 The guard module, when used, will be used to implement
@@ -2538,12 +2539,9 @@
 =item L<JSON> and L<JSON::XS>
 
 One of these modules is required when you want to read or write JSON data
-via L<AnyEvent::Handle>. It is also written in pure-perl, but can take
+via L<AnyEvent::Handle>. L<JSON> is also written in pure-perl, but can take
 advantage of the ultra-high-speed L<JSON::XS> module when it is installed.
 
-In fact, L<AnyEvent::Handle> will use L<JSON::XS> by default if it is
-installed.
-
 =item L<Net::SSLeay>
 
 Implementing TLS/SSL in Perl is certainly interesting, but not very