From 5431ac619eaea0f6bbbd17ccbb11942a89fe0acc Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 11:53:03 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index d66df82..5b0219d 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -15,9 +15,8 @@ use Template;
 use Secrets;
 
 sub Triple::main() {
-    my $sitename, $debug;
-    $sitename =  getcwd();
+    my $sitename =  getcwd();
     $sitename =~ s/.*\///;
-    $debug = 1 if $sitename =~ /^test\./;
+    my $debug = 1 if $sitename =~ /^test\./;
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
 }
-- 
2.47.3