--- IO-AIO/AIO.pm	2005/12/26 18:31:12	1.44
+++ IO-AIO/AIO.pm	2005/12/26 19:20:26	1.45
@@ -69,7 +69,7 @@
 use Fcntl ();
 
 BEGIN {
-   $VERSION = '1.7';
+   $VERSION = '1.71';
 
    @EXPORT = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat
                 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink
@@ -347,7 +347,7 @@
                   # finished
                   undef $statcb;
                   undef $schedcb;
-                  $cb->(\@dirs, \@nondirs);
+                  $cb->(\@dirs, \@nondirs) if $cb;
                   undef $cb;
                }
             };