X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=8a1167f8ec4b29b2b133b06d8546fbfcd4178047;hp=a1fc1fbf97363438e6e04fa675c13924f2f15078;hb=54f4bfeffdb580af3e4668d31c855bccb1e0623a;hpb=01ce70757e2be0d27df667a7b0e898b0d91476ec

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index a1fc1fb..8a1167f 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -983,7 +983,7 @@ EOF
           : $class->log->debug(q/Couldn't find home/);
     }
 
-    # Call plugins setup
+    # Call plugins setup, this is stupid and evil.
     {
         no warnings qw/redefine/;
         local *setup = sub { };
@@ -1747,9 +1747,7 @@ Prepares message body.
 sub prepare_body {
     my $c = shift;
 
-    #Moose TODO: what is  _body ??
-    # Do we run for the first time?
-    return if defined $c->request->{_body};
+    return if $c->request->_has_body;
 
     # Initialize on-demand data
     $c->engine->prepare_body( $c, @_ );