[Catalyst-commits] r12592 - Catalyst-Runtime/5.80/branches/psgi/t/lib/TestApp/View/Dump

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-10 04:42:14 +0000 (Sun, 10 Jan 2010)
New Revision: 12592

Modified:
   Catalyst-Runtime/5.80/branches/psgi/t/lib/TestApp/View/Dump/Env.pm
Log:
Don't dump psgi.input as it can't be deserialized.

Modified: Catalyst-Runtime/5.80/branches/psgi/t/lib/TestApp/View/Dump/Env.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/t/lib/TestApp/View/Dump/Env.pm	2010-01-10 04:22:01 UTC (rev 12591)
+++ Catalyst-Runtime/5.80/branches/psgi/t/lib/TestApp/View/Dump/Env.pm	2010-01-10 04:42:14 UTC (rev 12592)
@@ -5,7 +5,12 @@
 
 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;