allow requests with charset to be translated to application/json

metacpan · May 3, 2013 · 5813e52 · 5813e52
1 parent 62a9f96
commit 5813e52
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Server/Role/Request.pm b/lib/MetaCPAN/Server/Role/Request.pm
@@ -6,7 +6,7 @@ around [qw(content_type header)] => sub {
     my ($orig, $self) = (shift,shift);
     my $header = $self->$orig(@_);
     return unless($header);
-    return $header eq 'application/x-www-form-urlencoded' ? 'application/json' : $header;
+    return $header =~ /^application\/x-www-form-urlencoded/ ? 'application/json' : $header;
 };
 
 1;