From 94f0b139ab4ab37472771db6ae968288d2c2de69 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Thu, 29 May 2025 16:50:28 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index acbfb1d..26d1e60 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -103,7 +103,7 @@ sub Triple::main { $location = $vars->{"uri"}; } - my @search = @{$page{$vars->{uri}} || $page{$vars->{''}}}; + my @search = @{$page{$vars->{uri}} // $page{$vars->{''}}}; if ($search[PAGE_TYPE] == REDIRECT_PAGE) { # $vars->{uri} = $search[PAGE_TO]; -- 2.39.5