Do not destroy callback interface (clkao)

[catagits/Web-Session.git] / lib / Plack / Middleware / Session.pm

diff --git a/lib/Plack/Middleware/Session.pm b/lib/Plack/Middleware/Session.pm
index dab15cb..b378243 100644 (file)
--- a/lib/Plack/Middleware/Session.pm
+++ b/lib/Plack/Middleware/Session.pm
@@ -55,7 +55,9 @@ sub call {
     $self->response_cb($res, sub {
         my $res = Plack::Response->new(@{$_[0]});
         $env->{'plack.session'}->finalize( $res );
-        @{$_[0]} = @{$res->finalize};
+        $res = $res->finalize;
+        $_[0]->[0] = $res->[0];
+        $_[0]->[1] = $res->[1];
     });
 }