--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 7a97df2fe087717e603a55921bcc3a388906e85c..9857c0b8caffb495dd6df6b0c16db7bdaef3b645 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -126,6 +126,13 @@ sub Triple::main {
             $location = $vars->{"uri"};
         }
 
+       my @search = @{$page{$vars->{uri}}};
+       if ($search[PAGE_TYPE] == REDIRECT_PAGE) {
+           # $vars->{uri} = $search[PAGE_TO];
+           $status   = '301 Moved Permanently';
+           $location = $search[PAGE_TO];
+       }
+
         if ($location) {
             print $cgi->header(
                 -Content_Type => 'text/html',
@@ -142,10 +149,6 @@ sub Triple::main {
 
         next if $status ne '';
 
-       {
-           my @search = @{$page{$vars->{uri}}};
-           $vars->{uri} = $search[PAGE_TO] if $search[PAGE_TYPE] == REDIRECT_PAGE;
-       }
         my $page = $static{$vars->{uri}};
         if (not $page) {
            if (@{$page{$vars->{uri}}}[PAGE_TO]) {