equal
deleted
inserted
replaced
83 foreach (@ARGV = getDBs(@ARGV)) { |
83 foreach (@ARGV = getDBs(@ARGV)) { |
84 my %h; |
84 my %h; |
85 my $db = connectDB(\%h, $_); |
85 my $db = connectDB(\%h, $_); |
86 |
86 |
87 my ($seen, $returned, $oldest_c, $oldest_u); |
87 my ($seen, $returned, $oldest_c, $oldest_u); |
|
88 $seen = $returned = 0; |
88 $oldest_c = $oldest_u = time(); |
89 $oldest_c = $oldest_u = time(); |
89 iterate(%h, sub { |
90 iterate(%h, sub { |
90 my ($item, $v0, $v1, $c) = @_; |
91 my ($item, $v0, $v1, $c) = @_; |
91 ++$seen; |
92 ++$seen; |
92 ++$returned if $v0 != $v1; # soon it can be $c |
93 ++$returned if $v0 != $v1; # soon it can be $c |