From e019c00139aecbde8a9908646e8e0f7314fd0ea6 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Sat, 17 May 2025 11:19:55 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index cb2fcfe..e83e796 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -123,6 +123,8 @@ sub Triple::main {
             $location = $vars->{"uri"};
         }
 
+        $cgi->header->location = $location if $location;
+
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
-- 
2.39.5