--- deliantra/maps/perl/map-prefetch.ext	2006/06/26 15:41:44	1.2
+++ deliantra/maps/perl/map-prefetch.ext	2006/06/26 15:43:24	1.3
@@ -57,8 +57,8 @@
          my ($fh) = @_
            or return;
          aio_readahead $fh, 0, -s $fh, sub {
-            my $stop = Time::HiRes::time;
-            warn "$path ", $stop-$NOW;
+            my $time = Time::HiRes::time - $NOW;
+            warn "LONG PREFETCH $path $time\n" if $time > 0.15;
          };
       };
    }