--- IO-AIO/AIO.pm	2007/01/07 22:59:57	1.101
+++ IO-AIO/AIO.pm	2007/01/08 20:45:04	1.102
@@ -471,7 +471,7 @@
 
       aioreq_pri $pri;
       add $grp aio_open $path, O_RDONLY, 0, sub {
-         my ($fh) = @_
+         my $fh = shift
             or return $grp->result (-1);
 
          aioreq_pri $pri;