added misses to be cleared

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 072df9eeea824cdf154b9eec39520d0ec8d24ffb..a2316a2bf3b49244f8643aa29d77fc4a864481f8 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -202,7 +202,7 @@ sub extract
                }
                %cache =();
                $lasttime = $main::systime;
-               $hits = $matchtotal = 0;
+               $hits = $misses = $matchtotal = 0;
        }
 
 LM:    foreach $call (split /,/, $calls) {