--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 4265c573ed589f02762dab0707710a11e57378d0..3f603b8ffa256240da5d4cb8253061ea4f5f5146 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -127,7 +127,7 @@ sub Triple::main {
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
             -status       => $status,
-            -location     => $location,
+            -location     => undef,
             );
 
         next if $status ne '';