changeset 36 | 4c717800f8ef |
parent 34 | 57bee7e4f4cf |
child 38 | 329e69e5c6dd |
--- a/exigrey.pl Wed Jan 03 17:15:49 2007 +0000 +++ b/exigrey.pl Wed Jan 03 21:21:26 2007 +0000 @@ -89,7 +89,7 @@ iterate(%h, sub { my ($item, $v0, $v1, $c) = @_; ++$seen; - ++$returned if $c; + ++$returned if $v0 != $v1; # soon it can be $c $oldest_c = $v0 if $v0 < $oldest_c; $oldest_u = $v1 if $v1 < $oldest_u; });