avoid dead code in i_t1_glyph_names().

[imager.git] / fuzz / fuzz.pl

diff --git a/fuzz/fuzz.pl b/fuzz/fuzz.pl
index 85032294207613ed0936045959fb5061620a570d..69173a86b829bb93a764e4a8b286611240771b68 100644 (file)
--- 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 {