fix for response_filter regression and matching test

[catagits/Web-Simple.git] / lib / Web / Dispatch / Wrapper.pm

diff --git a/lib/Web/Dispatch/Wrapper.pm b/lib/Web/Dispatch/Wrapper.pm
index 65739fd..c838261 100644 (file)
--- a/lib/Web/Dispatch/Wrapper.pm
+++ b/lib/Web/Dispatch/Wrapper.pm
@@ -41,7 +41,7 @@ sub response_filter (&) {
 
 sub to_app {
   my $code = $_[0]->wrapper;
-  my $app = $_[1];
+  my $app = $_[0]->app;
   sub { $code->($_[0], $app) }
 }