X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/8fde3bbbce7ad48cc0b0b4c5c442369eb3f3604e..9b1ec2b8d2aae25c8864e28af1e7c85e78ca9575:/fuzz/fuzz.pl

diff --git a/fuzz/fuzz.pl b/fuzz/fuzz.pl
index 85032294..69173a86 100644
--- a/fuzz/fuzz.pl
+++ b/fuzz/fuzz.pl
@@ -3,6 +3,7 @@ use blib;
 use strict;
 use Imager;
 use Getopt::Long;
+use Time::HiRes qw(time);
 
 my $count = 1000;
 GetOptions("c=i"=>\$count)
@@ -41,8 +42,15 @@ for my $i (1 .. $count) {
     print "  replace $offset/$len: ", unpack("H*", $ins), "\n";
     substr($data, $offset, $len, $ins);
   }
+  my $start = time;
   my $im = Imager->new;
-  if ($im->read(data => $data)) {
+  my $result = $im->read(data => $data);
+  my $dur = time() - $start;
+  if ($dur > 1.0) {
+    print "***Took too long to load\n";
+  }
+  printf "   Took %f seconds\n", time() - $start;
+  if ($result) {
     print "<< Success\n";
   }
   else {