Report timestamp error at most once per file.

Signed-off-by:  Henry Cox <[email protected]>

Author: henry2cox

bin/genhtml

@@ -4470,6 +4470,8 @@ sub nextBranchInOwnerBin
     return undef;
 }
 
+my %annotateWarnings;    # warn only once per file
+
 sub _computeAge
 {
     my ($when, $path) = @_;
@@ -4484,12 +4486,17 @@ sub _computeAge
         DateTime->now();
     my $then = lcovutil::parse_w3cdtf($when);
     if ($then > $now) {
-        my $data =
-            exists($ENV{SOURCE_DATE_EPOCH}) ?
-            "'SOURCE_DATE_EPOCH=$ENV{SOURCE_DATE_EPOCH}'" :
-            "'now'";
-        lcovutil::ignorable_error($lcovutil::ERROR_INCONSISTENT_DATA,
-            "File \"$path\": $data ($now) is older than annotate time '$when'");
+        unless (exists($annotateWarnings{$path})) {
+            # issue annotation warning at most once per file
+            my $data =
+                exists($ENV{SOURCE_DATE_EPOCH}) ?
+                "'SOURCE_DATE_EPOCH=$ENV{SOURCE_DATE_EPOCH}'" :
+                "'now'";
+            $annotateWarnings{$path} = $now;
+            lcovutil::ignorable_error($lcovutil::ERROR_INCONSISTENT_DATA,
+                "File \"$path\": $data ($now) is older than annotate time '$when'"
+            );
+        }
         return 0;
     }
     return $then->delta_days($now)->in_units('days');

tests/Makefile

@@ -17,7 +17,8 @@ TESTS := genhtml lcov gendiffcov py2lcov perl2lcov
 # there may or may not be some .info files generated for exported
 #  tools - py2lcov, perl2lcov, etc.  We want them included in the
 #  report - but they might not have been generated, so we need to
-#  ignore the potential 'empty glob pattern' error message
+#  ignore the potential 'empty glob pattern' error message and a
+#  potential remote repo timestamp issue
 report:
 	if [ "x$(COVERAGE)" != 'x' ] ; then \
 	  cover ; \