--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index acbfb1ddd2cc767451ed73f9c6487852aced9c93..26d1e601be85aee777a62384fd4b80b16385acad 100644 (file)
--- 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];