--- AnyEvent-AIO/AIO.pm	2009/07/21 03:34:20	1.3
+++ AnyEvent-AIO/AIO.pm	2011/06/10 02:09:49	1.4
@@ -28,8 +28,7 @@
 
 package AnyEvent::AIO;
 
-use strict;
-no warnings;
+use common::sense;
 
 use AnyEvent ();
 use IO::AIO ();
@@ -40,7 +39,7 @@
 our $WATCHER;
 
 my $guard = AnyEvent::post_detect {
-   $WATCHER = AnyEvent->io (fh => IO::AIO::poll_fileno, poll => 'r', cb => \&IO::AIO::poll_cb);
+   $WATCHER = AE::io IO::AIO::poll_fileno, 0, \&IO::AIO::poll_cb;
 };
 $WATCHER ||= $guard;