X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=e6e8657300a5e97fb1a36ed706477dd59a1c92fa;hp=540361546b316668955b34b148afb9ed47182d00;hb=0739a7ecb8f44518900a7d056d6d2837d553321a;hpb=f357811db01e4be78e06e234ddcf78bba3374a6a

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 5403615..e6e8657 100644
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -123,7 +123,7 @@ sub _build_body_data {
 
     # Not sure if these returns should not be exceptions...
     my $content_type = $self->content_type || return;
-    return unless ($self->method eq 'POST' || $self->method eq 'PUT');
+    return unless ($self->method eq 'POST' || $self->method eq 'PUT' || $self->method eq 'PATCH');
 
     my ($match) = grep { $content_type =~/$_/i }
       keys(%{$self->data_handlers});