From cac28af9b9f171d5089fb524de47913fd4b8c595 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 7 May 2025 21:29: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 f768bdc..41be588 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,7 +53,7 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        $cwd = getcwd();
+        my $cwd = getcwd();
         $cwd =~ s/.*\///;
         return $cwd;
     }
-- 
2.39.5