Use VegGuide::SiteURI to generate redirect URIs

VegGuide · Aug 5, 2015 · 7201876 · 7201876
1 parent 543cc2b
commit 7201876
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/VegGuide/Plugin/FixupURI.pm b/lib/VegGuide/Plugin/FixupURI.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use MRO::Compat;
+use VegGuide::SiteURI qw( site_uri );
 
 sub prepare_action {
     my $self = shift;
@@ -30,8 +31,11 @@ sub prepare_action {
             $new_p{$k} = $v;
         }
 
-        my $uri = $self->request->uri;
-        $uri->query_form(%new_p);
+        my $uri = site_uri(
+            path      => $self->request->path,
+            query     => \%new_p,
+            with_host => 1,
+        );
         $self->response->redirect($uri);
     }