From b65cb4541a84d37dbd9c73edac87ad5a7d78411d Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Wed, 7 May 2025 22:30:30 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index 2a21f56..4491ddb 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -51,8 +51,12 @@ sub Triple::main { my $page = %static{$vars->{uri}}; if (not $page) { - - $page = %static{''}; + my @set = @{$page{$vars->{uri}}}; + if (@set) { + $page = "dynamic, no?"; + } else { + $page = %static{''}; + } } print $page; } -- 2.47.3