From 8e080c5e6dad78e8ae0af60b3c9fa5bcdaff2f8f Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 12:56:13 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index b680b9d..ccc7895 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -45,7 +45,7 @@ sub preinit {
     sub sitename {
         use Cwd;
         $_ = getcwd();
-        $_ = s/.*\///;
+        $_ =~ s/.*\///;
     }
 
     sub debug {
-- 
2.47.3