From fd0835419e3e3f9b1bd65a5bdc51d5f39841d9c3 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Tue, 6 May 2025 13:18:21 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index a1c1296..b9a8485 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -76,10 +76,10 @@ sub init { banana => 'sand', }; foreach my $key (keys %page) { - my $set = $page{$key}; + my @set = $page{$key}; last if $set->[0] == DYNAMIC_PAGE; syslog("info", "Marking Static '$key'"); - print Dumper $set->[0]; + # print Dumper $set->[0]; # $template->process($datum[1], $vars, \$_) or syslog("info", $template->error()); # $static{$path} = $_; } -- 2.47.3