From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 9 Nov 2009 22:21:19 +0000 (+0000)
Subject: Make request->body fail when used as a writer.
X-Git-Tag: 5.80014~15^2~2^2~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=14c057aacee82ad6b1bde6977b50a5ae10999968;hp=7f5c5a7b95caa17cc7edb84c1b3e721ffeaa5b97

Make request->body fail when used as a writer.
---

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 30d7be4..9c9705e 100644
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -110,7 +110,7 @@ has _body => (
 sub body {
   my $self = shift;
   $self->_context->prepare_body();
-  $self->_body(@_) if scalar @_;
+  croak 'body is a reader' if scalar @_;
   return blessed $self->_body ? $self->_body->body : $self->_body;
 }