--- AnyEvent/lib/AnyEvent.pm	2008/05/26 03:27:52	1.137
+++ AnyEvent/lib/AnyEvent.pm	2008/05/26 05:09:53	1.138
@@ -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
@@ -752,6 +759,19 @@
              $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6";
 }
 
+sub import {
+   shift;
+   return unless @_;
+
+   my $pkg = caller;
+
+   no strict 'refs';
+
+   for (@_) {
+      *{"$pkg\::WIN32"} = *WIN32 if $_ eq "WIN32";
+   }
+}
+
 my @models = (
    [EV::                   => AnyEvent::Impl::EV::],
    [Event::                => AnyEvent::Impl::Event::],