From 928804fa23e5ec1d8a445a7284c6fbce00f86072 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 19 Mar 2023 17:43:15 +0200
Subject: only aggregate once

---
 guprecords.raku | 9 ++++++---
 1 file 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;
 }
 
-- 
cgit v1.2.3