--- IO-AIO/t/07_feeder.t	2006/10/22 13:33:28	1.1
+++ IO-AIO/t/07_feeder.t	2006/10/23 14:49:51	1.2
@@ -14,13 +14,13 @@
 
 print "ok 1\n";
 
-$grp->feeder_limit (5);
-$grp->set_feeder (sub {
+$grp->feed_limit (5);
+$grp->feed (sub {
    return if $cn2 >= 10;
    $cn2++;
-   add $grp IO::AIO::aio_sleep 0, sub {
+   (add $grp IO::AIO::aio_sleep 0)->cb (sub {
       $cn3++;
-   };
+   });
 });
 
 print $cn2 == 5 ? "" : "not ", "ok 2\n";