X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FSubRequest.pm;fp=lib%2FCatalyst%2FPlugin%2FSubRequest.pm;h=433ebb9b4589605c704b22a46ff8cc9711b602cf;hb=f3f2edc96c37cd0331c3cbcf9359275ba39c258a;hp=032293ee0ec665f9e8815fcc4412f1616f6df436;hpb=d35825f62018cfbfb0ae2775a6dc99287ab93ec4;p=catagits%2FCatalyst-Plugin-SubRequest.git

diff --git a/lib/Catalyst/Plugin/SubRequest.pm b/lib/Catalyst/Plugin/SubRequest.pm
index 032293e..433ebb9 100644
--- a/lib/Catalyst/Plugin/SubRequest.pm
+++ b/lib/Catalyst/Plugin/SubRequest.pm
@@ -2,6 +2,7 @@ package Catalyst::Plugin::SubRequest;
 
 use strict;
 use warnings;
+use Plack::Request;
 
 our $VERSION = '0.18';
 
@@ -85,6 +86,10 @@ sub sub_request_response {
     my ( $c, $path, $stash, $params ) = @_;
     $stash ||= {};
     my $env = $c->request->env;
+    my $req = Plack::Request->new($env);
+    my $uri = $req->uri;
+    $uri->query_form($params||{});
+    $env->{QUERY_STRING} = $uri->query||'';
     local $env->{PATH_INFO} = $path;
     local $env->{REQUEST_URI} = $env->{SCRIPT_NAME} . $path;
     $env->{REQUEST_URI} =~ s|//|/|g;