From 9bb0857d4a89a71f0312f619a7729e5f3659d4e5 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Sat, 17 May 2025 13:02:31 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index 3f603b8..76a4aa0 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -123,12 +123,19 @@ sub Triple::main { $location = $vars->{"uri"}; } - print $cgi->header( - -Content_Type => 'text/html', - -charset => 'UTF-8', - -status => $status, - -location => undef, - ); + if ($location) { + print $cgi->header( + -Content_Type => 'text/html', + -charset => 'UTF-8', + -status => $status, + -location => $location, + ); + } else { + print $cgi->header( + -Content_Type => 'text/html', + -charset => 'UTF-8', + ); + } next if $status ne ''; -- 2.39.5