From dbec018bdfd25d12fae9045bec4580c751167864 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 7 May 2025 21:29:14 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index a25d0e5..f768bdc 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,9 +53,9 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        $_ = getcwd();
-        s/.*\///;
-        $_;
+        $cwd = getcwd();
+        $cwd =~ s/.*\///;
+        return $cwd;
     }
 
     sub debug {
@@ -93,7 +93,7 @@ sub init {
             my @set = @{$page{$key}};
             next if $set[0] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");
-            # $vars->{"uri"} = "$key";
+            $vars->{"uri"} = "$key";
             my $temporary;
             $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error());
             $static{$key} = $temporary;
-- 
2.39.5