X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFuture.pm;h=4b4e0725ec451fbc4cdafba065be99e276892177;hp=2817539c7a8c3cc5909a04830461c1d5f779eabd;hb=f4a8508058f7bad5052775a8df3e683527c73333;hpb=9031635d18e754da303557b656c63ce8e7eb8e77

diff --git a/lib/Object/Remote/Future.pm b/lib/Object/Remote/Future.pm
index 2817539..4b4e072 100644
--- a/lib/Object/Remote/Future.pm
+++ b/lib/Object/Remote/Future.pm
@@ -4,7 +4,9 @@ use strict;
 use warnings;
 use base qw(Exporter);
 
-use Object::Remote::Logging qw( :log Dlog_trace );
+use Object::Remote::Logging qw( :log router );
+
+BEGIN { router()->exclude_forwarding }
 
 use CPS::Future;
 
@@ -29,15 +31,15 @@ sub await_future {
     $f->on_ready(sub {
       log_trace { my $l = @await; "future has become ready, length of \@await: '$l'" };
       if ($f == $await[-1]) {
-        log_debug { "This future is not waiting on anything so calling stop on the run loop" };
+        log_trace { "This future is not waiting on anything so calling stop on the run loop" };
         $loop->stop;         
       }
     });
-    log_debug { "Starting run loop for newly created future" };
+    log_trace { "Starting run loop for newly created future" };
     $loop->run;
   }
   if (@await and $await[-1]->is_ready) {
-    log_debug { "Last future in await list was ready, stopping run loop" };
+    log_trace { "Last future in await list was ready, stopping run loop" };
     $loop->stop;
   }
   log_trace { "await_future() returning" };