--- AnyEvent-DBus/DBus.pm	2010/06/21 00:11:17	1.2
+++ AnyEvent-DBus/DBus.pm	2010/06/21 00:11:55	1.3
@@ -147,8 +147,11 @@
 sub manage {
    my (undef, $con) = @_;
 
-   $con->set_watch_callbacks (\&io_on, \&watch_off, \&io_toggle);
-   $con->set_timeout_callbacks (\&timeout_on, \&watch_off, \&timeout_toggle);
+   $con->set_watch_callbacks (\&io_on, \&watch_off, \&io_toggle)
+      if $con->can ("set_watch_callbacks");
+
+   $con->set_timeout_callbacks (\&timeout_on, \&watch_off, \&timeout_toggle)
+      if $con->can ("set_timeout_callbacks");
 }
 
 =head1 SEE ALSO