exigrey.pl
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;
 	    });