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

---
 perl/Triple.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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