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

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 4460612..f36956f 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -76,9 +76,9 @@ sub init {
             banana => 'sand',
         };
         foreach my $key (keys %page) {
-            my @set = $page{$key};
-            print Dumper @set;
-            last if $set[0] == DYNAMIC_PAGE;
+            my $set = \$page{$key};
+            print Dumper $set;
+            last if $set->[0] == DYNAMIC_PAGE;
             syslog("info", "Marking Static '$key'");
             #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
             #         $static{$path} = $_;
-- 
2.47.3