Display Reason

miyagawa · Apr 8, 2010 · ad0cbd9 · ad0cbd9
1 parent f99c9ef
commit ad0cbd9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Sunaba/Runner.pm b/lib/Sunaba/Runner.pm
@@ -38,7 +38,7 @@ sub to_app {
                     my($body, $hdr) = @_;
 
                     if ($hdr->{Status} =~ /^[45]/) {
-                        return $respond->([ 502, ["Content-Type", "text/plain"], [ "Bad gateway: $hdr->{Status}" ] ]);
+                        return $respond->([ 502, ["Content-Type", "text/plain"], [ "Bad gateway: $hdr->{Status} $hdr->{Reason}" ] ]);
                     }
 
                     my $json = ($body =~ /^sunaba\((.*)\);$/s)[0]