From 8d6f61b4dca0978d2fc599901ca40bef8b6e889f Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 13:12:27 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index e65bc6f..413f4fe 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -74,17 +74,18 @@ sub init {
     sub init_static {
         my $vars = {
             banana => 'sand',
-            };
-        foreach (my ($path, @datum) = each %page) {
-            print Dumper @datum;
+        };
+        foreach my $key (keys %hash) {
+            @set = $hash{$key};
+            print Dumper @set;
+        }
             # if ($datum[0] == DYNAMIC_PAGE) {
-                # syslog("info", "Marking Dynamic '$path'");
-                # next;
+            # syslog("info", "Marking Dynamic '$path'");
+            # next;
             # }
             # syslog("info", "Marking Static '$path'");
-    #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
-    #         $static{$path} = $_;
-        }
+            #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
+            #         $static{$path} = $_;
     }
 
     my ($sitename, $version) = preinit();
-- 
2.47.3