From: Jay Hannah <jay.hannah@iinteractive.com>
Date: Tue, 16 Jan 2018 22:41:17 +0000 (-0600)
Subject: Merge branch 'pr/152' into release-candidates/rc-5.90116
X-Git-Tag: 5.90116~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=7060a5792b73efd8f5fdb6b9b7281d6394b5c5b6;hp=199731fb710c6a165793f055f85de60539039dfe

Merge branch 'pr/152' into release-candidates/rc-5.90116
---

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 1306b94..e4cb5c2 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});