From 5527504cb10de71e55d677a16df746ca256c173d Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 20 May 2025 18:35:13 -0600
Subject: [PATCH] --

---
 perl/Triple.pm      | 11 +----------
 perl/Triple/Init.pm |  9 +++++++++
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f881a48..527d7c8 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -51,7 +51,7 @@ sub Triple::main {
         return %form;
     }
 
-    my ($sitename, $version) = init();
+    my ($sitename, $version) = Triple::Init::init();
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'tt'});
 
@@ -167,13 +167,4 @@ sub Triple::main {
     }
 }
 
-sub init {
-    my $sitename = Triple::Init::sitename();
-    Triple::Init::debug($sitename);
-    my $version = Triple::Init::version();
-    syslog("info", "<Triple $version>");
-    Triple::Init::static($sitename, $version);
-    return $sitename, $version;
-}
-
 1;
diff --git a/perl/Triple/Init.pm b/perl/Triple/Init.pm
index 0afe1a3..a792509 100644
--- a/perl/Triple/Init.pm
+++ b/perl/Triple/Init.pm
@@ -1,5 +1,14 @@
 package Triple::Init;
 
+sub init {
+    my $sitename = sitename();
+    debug($sitename);
+    my $version = version();
+    syslog("info", "<Triple $version>");
+    static($sitename, $version);
+    return $sitename, $version;
+}
+
 sub sitename {
 
     use Cwd;
-- 
2.39.5