summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-11-12 12:04:41 -0600
committerJesse Luehrs <doy@tozt.net>2012-11-12 12:04:41 -0600
commit43b962acc05a230ae8840631bac45e3943aadc1d (patch)
tree3b3128e3799cc4c1e88033bb358b45f58bc1e266
parenteeab58fa5f9d6d9cf005b41b6a53442b6d5f6f08 (diff)
downloadweb-request-43b962acc05a230ae8840631bac45e3943aadc1d.tar.gz
web-request-43b962acc05a230ae8840631bac45e3943aadc1d.zip
still need to set this up if we return early
-rw-r--r--lib/Web/Request.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm
index 6fb94a3..0f37610 100644
--- a/lib/Web/Request.pm
+++ b/lib/Web/Request.pm
@@ -188,8 +188,11 @@ has _parsed_body => (
my $ct = $self->content_type;
my $cl = $self->content_length;
if (!$ct && !$cl) {
+ if (!$self->env->{'psgix.input.buffered'}) {
+ $self->env->{'psgix.input.buffered'} = 1;
+ $self->env->{'psgi.input'} = Stream::Buffered->new(0)->rewind;
+ }
return {
- content => '',
body => {},
uploads => {},
};