fix environment changes within subdispatch and arrange for middleware to uplevel...

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

diff --git a/lib/Web/Dispatch/Node.pm b/lib/Web/Dispatch/Node.pm
index 4fbc46d..bd83a7c 100644 (file)
--- a/lib/Web/Dispatch/Node.pm
+++ b/lib/Web/Dispatch/Node.pm
@@ -11,7 +11,7 @@ for (qw(match run)) {
 sub call {
   my ($self, $env) = @_;
   if (my ($env_delta, @match) = $self->_match->($env)) {
-    $self->_curry(@match)->({ %$env, %$env_delta });
+    ($env_delta, $self->_curry(@match));
   } else {
     ()
   }