From 28aef13831cc6296f3305155d159d5cd42567a9f Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 12:59:07 -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 b3c7577..8bbdba9 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -44,9 +44,8 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        my $sitename = getcwd();
-        $sitename =~ s/.*\///;
-        return $sitename;
+        $_ = getcwd();
+        s/.*\///;
     }
 
     sub debug {
-- 
2.47.3