--- Coro/Event/Event.pm	2003/05/27 01:15:31	1.17
+++ Coro/Event/Event.pm	2003/11/05 20:02:47	1.18
@@ -40,7 +40,7 @@
 
 package Coro::Event;
 
-no warnings qw(uninitialized);
+BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
 
 use Carp;
 
@@ -52,11 +52,13 @@
 @EXPORT = qw(loop unloop sweep reschedule);
 
 BEGIN {
-   $VERSION = 0.7;
+   $VERSION = 0.8;
 
    local $^W = 0; # avoid redefine warning for Coro::ready;
-   require XSLoader;
-   XSLoader::load Coro::Event, $VERSION;
+
+   require DynaLoader;
+   push @ISA, 'DynaLoader';
+   bootstrap Coro::Event $VERSION;
 }
 
 =item $w = Coro::Event->flavour(args...)