--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index cb2fcfee9078a3eb417df692e18fc7afee2c2de2..e83e796081bc0a06bbd36636726c7df94491258d 100644 (file)
--- 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',