--

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