Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

improved time checks and extend to 10 matches

  • Loading branch information...
commit 07002cda9bd366db06b6ba43c08409050d98af95 1 parent c487046
@barbie authored
Showing with 4 additions and 8 deletions.
  1. +4 −8 lib/CPAN/Testers/Data/Generator.pm
View
12 lib/CPAN/Testers/Data/Generator.pm
@@ -1034,16 +1034,12 @@ sub _consume_reports {
@guids = grep { !$guids{$_} } @$guids;
for my $guid (@guids) {
# don't process too far
- shift @times if(@times > 4); # one off
- push @times, $update; # one on ... max 5
+ shift @times if(@times > 9); # one off
+ push @times, _date_diff($end,$update) <= 0 ? 0 : 1; # one on ... max 10
my $times = 0;
- for my $time (@times) {
- next if(_date_diff($end,$time) <= 0);
- $times++;
- }
-
- last if($times == @times); # stop if all past endh
+ $times += $_ for(@times);
+ last if($times == 10); # stop if all greater than end
# okay process
$self->_log("GUID [$guid]");
Please sign in to comment.
Something went wrong with that request. Please try again.