From 8eb00f0a1afcc1bd30cfb9c772b0302b8a6b3f54 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Tue, 6 May 2025 13:16: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 cb85cb0..6d06cf3 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][0]; + print Dumper $set[0]; # $template->process($datum[1], $vars, \$_) or syslog("info", $template->error()); # $static{$path} = $_; } -- 2.47.3