set plack.proxy variables in on_headers

leedo · Jan 18, 2011 · 51524eb · 51524eb
1 parent 82820dd
commit 51524eb
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/Plack/App/Proxy.pm b/lib/Plack/App/Proxy.pm
@@ -92,6 +92,11 @@ sub call {
                 my $headers = shift;
 
                 if ($headers->{Status} !~ /^59\d+/) {
+                    $env->{'plack.proxy.last_protocol'} = $headers->{HTTPVersion};
+                    $env->{'plack.proxy.last_status'}   = $headers->{Status};
+                    $env->{'plack.proxy.last_reason'}   = $headers->{Reason};
+                    $env->{'plack.proxy.last_url'}      = $headers->{URL};
+
                     $writer = $respond->([
                         $headers->{Status},
                         [$self->response_headers($headers)],
@@ -106,11 +111,6 @@ sub call {
             sub {
                 my (undef, $headers) = @_;
 
-                $env->{'plack.proxy.last_protocol'} = $headers->{HTTPVersion};
-                $env->{'plack.proxy.last_status'}   = $headers->{Status};
-                $env->{'plack.proxy.last_reason'}   = $headers->{Reason};
-                $env->{'plack.proxy.last_url'}      = $headers->{URL};
-
                 if (!$writer and $headers->{Status} =~ /^59\d/) {
                     $respond->([502, ["Content-Type","text/html"], ["Gateway error"]]);
                 }