projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Improve performance by skipping body processing if we don't have Content-Length
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Request.pm
diff --git
a/lib/Catalyst/Request.pm
b/lib/Catalyst/Request.pm
index
7bebb4c
..
40825b7
100644
(file)
--- a/
lib/Catalyst/Request.pm
+++ b/
lib/Catalyst/Request.pm
@@
-146,6
+146,9
@@
C<application/x-www-form-urlencoded> or C<multipart/form-data>.
sub body {
my ( $self, $body ) = @_;
$self->{_context}->prepare_body;
+
+ return unless $self->{_body};
+
$self->{_body}->body($body) if $body;
return $self->{_body}->body;
}