projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Put back r6145 that was blown away by a bad commit
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Request.pm
diff --git
a/lib/Catalyst/Request.pm
b/lib/Catalyst/Request.pm
index
7bebb4c
..
496682d
100644
(file)
--- a/
lib/Catalyst/Request.pm
+++ b/
lib/Catalyst/Request.pm
@@
-144,9
+144,11
@@
C<application/x-www-form-urlencoded> or C<multipart/form-data>.
=cut
sub body {
- my ( $self, $body ) = @_;
+ my $self = shift;
$self->{_context}->prepare_body;
- $self->{_body}->body($body) if $body;
+
+ return unless $self->{_body};
+
return $self->{_body}->body;
}