diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-09-02 10:20:59 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-09-02 10:53:31 -0400 |
| commit | 31a50c75661e9bb58026643cecc11e448544e80e (patch) | |
| tree | 0546aff486e918655af01307f59a3eb41be85fbd /lib | |
| parent | 9b83105e5c42d3b9cb39e8f43c0e80975e2622dd (diff) | |
| download | web-request-31a50c75661e9bb58026643cecc11e448544e80e.tar.gz web-request-31a50c75661e9bb58026643cecc11e448544e80e.zip | |
make sure we buffer the entire input (backported from Plack a96a5b6)
otherwise, the app may read things before the Web::Request instance
does, and if the app doesn't buffer the input, then that data would not
be seen
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Web/Request.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm index a895ef2..597530e 100644 --- a/lib/Web/Request.pm +++ b/lib/Web/Request.pm @@ -478,6 +478,8 @@ sub content { my $fh = $self->_input or return ''; my $cl = $self->content_length or return ''; + $fh->seek(0, 0); # just in case middleware/apps read it without seeking back + $fh->read(my $content, $cl, 0); $fh->seek(0, 0); |