From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 17:52:46 +0000 (-0600)
Subject: --
X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=49de23e41e7ba1c3ccb9ed9a25fcd1717459c071;p=emil-3chen.org.git

--
---

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