Don't dump psgi.input as it can't be deserialized.

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / View / Dump / Env.pm

diff --git a/t/lib/TestApp/View/Dump/Env.pm b/t/lib/TestApp/View/Dump/Env.pm
index 0acd1df..a869be3 100644 (file)
--- a/t/lib/TestApp/View/Dump/Env.pm
+++ b/t/lib/TestApp/View/Dump/Env.pm
@@ -5,7 +5,12 @@ use base qw[TestApp::View::Dump];
 
 sub process {
     my ( $self, $c ) = @_;
-    return $self->SUPER::process( $c, $c->engine->env );
+    my $env = $c->engine->env;
+    return $self->SUPER::process($c, {
+        map { ($_ => $env->{$_}) }
+        grep { $_ ne 'psgi.input' }
+        keys %{ $env },
+    });
 }
 
 1;