X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FRouter.pm;h=d48f28b311a75c6ab89ced3a1f1e9732a179d6d1;hb=ca30c15e4b434c7ba6dbe61ed2df9125806d93ab;hp=214455c1fdef9426fdbed0d081b047b59273c9c8;hpb=799b77f3fc1fa536b274a8e976b3c8351c45ad97;p=scpubgit%2FTak.git

diff --git a/lib/Tak/Router.pm b/lib/Tak/Router.pm
index 214455c..d48f28b 100644
--- a/lib/Tak/Router.pm
+++ b/lib/Tak/Router.pm
@@ -65,7 +65,7 @@ sub receive_request {
   my $request
     = $self->requests_received->{$tag}
     = Tak::Request->new(
-        tag => $tag, respond_to => $self
+        tag => $tag, respond_to => $self, respond_with => 'send_response',
       );
   $handler->start_request($request => @payload);
 }
@@ -77,13 +77,14 @@ sub send_response {
 }
 
 sub send_request {
-  my ($self, $respond_to, @payload) = @_;
+  my ($self, $respond_to, $respond_with, @payload) = @_;
   my $tag = $self->next_serial;
   my $request
     = $self->requests_sent->{$tag}
     = Tak::Request->new(
         tag => $tag,
-        respond_to => $respond_to
+        respond_to => $respond_to,
+        respond_with => $respond_with,
       );
   $self->channel->send(REQUEST => $tag => @payload);
   return $request;