From 292726f51ea3d8e83c197c5de36ccbdec9a5ca86 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 18 Jul 2012 01:09:23 -0500
Subject: need to decode these too

---
 lib/Web/Request.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm
index e089b31..66c9f80 100644
--- a/lib/Web/Request.pm
+++ b/lib/Web/Request.pm
@@ -210,7 +210,7 @@ has content => (
 
         # XXX get Plack::TempBuffer onto CPAN separately, so that this doesn't
         # always have to be sitting in memory
-        return $self->_parsed_body->{content};
+        return $self->decode($self->_parsed_body->{content});
     },
 );
 
@@ -258,7 +258,7 @@ has body_parameters => (
         my $ret = {};
         for my $key (keys %$body) {
             my $val = $body->{$key};
-            $ret->{$key} = ref($val) ? $val->[-1] : $val;
+            $ret->{$key} = $self->decode(ref($val) ? $val->[-1] : $val);
         }
 
         return $ret;
@@ -277,7 +277,9 @@ has all_body_parameters => (
         my $ret = {};
         for my $key (keys %$body) {
             my $val = $body->{$key};
-            $ret->{$key} = ref($val) ? $val : [ $val ];
+            $ret->{$key} = ref($val)
+                ? [ map { $self->decode($_) } @$val ]
+                : [ $self->decode($val) ];
         }
 
         return $ret;
-- 
cgit v1.2.3-54-g00ecf