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

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

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