--- IO-AIO/t/06_group.t	2006/10/22 00:19:05	1.1
+++ IO-AIO/t/06_group.t	2006/10/22 00:49:29	1.2
@@ -4,7 +4,7 @@
 
 print "1..10\n";
 
-my $grp = aio_group {
+my $grp = aio_group sub {
    print "ok 4\n";
 };
 
@@ -22,7 +22,7 @@
 
 print "ok 5\n";
 
-$grp = aio_group {
+$grp = aio_group sub {
    print "not ok 6\n";
 };
 
@@ -34,7 +34,7 @@
 
 IO::AIO::poll while IO::AIO::nreqs;
 
-aio_group {
+aio_group sub {
    print "ok 8\n";
 };