--- AnyEvent/t/io_common	2012/04/02 04:03:02	1.5
+++ AnyEvent/t/io_common	2012/04/04 02:18:30	1.6
@@ -16,7 +16,7 @@
 
 sub t {
    my $ok = shift;
-   my $f = "ae_" . shift;
+   my $f = "io_" . shift;
    $f->(@_, my $cv = AE::cv);
    my @res = $cv->recv;