--- AnyEvent/lib/AnyEvent.pm	2008/05/26 03:27:52	1.137
+++ AnyEvent/lib/AnyEvent.pm	2008/05/26 17:45:05	1.141
@@ -733,7 +733,7 @@
 
 use Carp;
 
-our $VERSION = '4.03';
+our $VERSION = '4.05';
 our $MODEL;
 
 our $AUTOLOAD;
@@ -741,6 +741,13 @@
 
 our @REGISTRY;
 
+our $WIN32;
+
+BEGIN {
+   my $win32 = ! ! ($^O =~ /mswin32/i);
+   eval "sub WIN32(){ $win32 }";
+}
+
 our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
 
 our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred