summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9c5bca9)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
sub flag ($) {
my ($int) = @_;
sub flag ($) {
my ($int) = @_;
- my $n = $int->{Number};
- my $d = $int->{Interval};
+ my $n = $int->{N};
+ my $d = $int->{D};
+ my $dmin = $d - $slop;
my $spec = $int->{Spec};
my $start_age = ($n+1) * $d;
my $i = 0;
my $spec = $int->{Spec};
my $start_age = ($n+1) * $d;
my $i = 0;
- print DEBUG "FLAG $spec\n";
+ print DEBUG "FLAG $spec sa=$start_age dmin=$dmin\n";
# find $i, the youngest which is at least $number x $interval
for (;;) {
print DEBUG "i #$i $files[$i]{A}\n";
# find $i, the youngest which is at least $number x $interval
for (;;) {
print DEBUG "i #$i $files[$i]{A}\n";
- last if $files[$i]{A} > $start_age;
+ last if $files[$i]{A} >= $start_age;
if ($i == $#files) {
print STDERR "insufficient for $spec\n";
}
if ($i == $#files) {
print STDERR "insufficient for $spec\n";
}
last if $files[$j];
my $dt = $files[$i]{A} - $files[$j]{A};
print DEBUG "j #$j $files[$j]{A} dt=$dt\n";
last if $files[$j];
my $dt = $files[$i]{A} - $files[$j]{A};
print DEBUG "j #$j $files[$j]{A} dt=$dt\n";
- last if $dt >= $d - $slop;