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