From 84410396708b2388044f9e234ef0dd68156ffb68 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Thu, 29 May 2025 17:00:06 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index fa1ab15..6fc9650 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -103,9 +103,9 @@ sub Triple::main { $location = $vars->{"uri"}; } - my $thing = $page{$vars->{uri}} || $page{$vars->{''}}; + my $page = $page{$vars->{uri}} || $page{$vars->{''}}; - my @search = @{$thing}; + my @search = @{$page}; if ($search[PAGE_TYPE] == REDIRECT_PAGE) { # $vars->{uri} = $search[PAGE_TO]; @@ -129,7 +129,6 @@ sub Triple::main { next if $status ne ''; - my $page = $static{$vars->{uri}}; if (not $page) { if (@{$page{$vars->{uri}}}[PAGE_TO]) { } -- 2.39.5