--- IO-AIO/t/06_group.t 2006/10/23 00:34:36 1.4 +++ IO-AIO/t/06_group.t 2006/10/23 20:05:27 1.5 @@ -4,6 +4,8 @@ print "1..12\n"; +IO::AIO::min_parallel 2;#d# + my $grp = aio_group sub { print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; };