only aggregate once

1 files changed, 6 insertions, 3 deletions

diff --git a/guprecords.raku b/guprecords.raku
index 5b53aa0..c0cb22e 100644
--- a/guprecords.raku
+++ b/guprecords.raku
@@ -162,9 +162,12 @@ class HostReporter is Reporter {
 }
 
 sub do-it(Str:D \stats-dir, Reporter:D \reporter) {
-  my Aggregator \aggregator .= new;
-  aggregator.add-file($_) for dir(stats-dir, test => { /.records$/ });
-  reporter.aggregates = aggregator.aggregates;
+  state Aggregator $aggregator = do {
+    my Aggregator \aggregator .= new;
+    aggregator.add-file($_) for dir(stats-dir, test => { /.records$/ });
+    aggregator;
+  };
+  reporter.aggregates = $aggregator.aggregates;
   reporter.report;
 }