From 05742ea59e171b96fc4b5cab9880627a31d68106 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 12:04:29 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 3425ed4..24c5c56 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -23,13 +23,13 @@ sub Triple::main {
 
 sub sitename {
     use Cwd;
-    $sitename =  getcwd();
-    $sitename =~ s/.*\///;
+    my $sitename =  getcwd();
+       $sitename =~ s/.*\///;
     return $sitename;
 }
 
 sub debug {
-    $sitename = $_[0];
+    my $sitename = $_[0];
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
     $debug = 1 if $sitename =~ /^test\./;
 }
-- 
2.47.3