X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FHandle.pm;h=8b1bd3199ac076e5e47aa02b8487be4297bf95fe;hp=3a3bcc101aa8dcfee2b8daa4f82502a4a04578a9;hb=d2eadebbdb4416f421ffd5298c782fdc32f388e7;hpb=302ecfbf4056a977f44f185cbfa925e3886d0c1a diff --git a/lib/Object/Remote/Handle.pm b/lib/Object/Remote/Handle.pm index 3a3bcc1..8b1bd31 100644 --- a/lib/Object/Remote/Handle.pm +++ b/lib/Object/Remote/Handle.pm @@ -59,6 +59,7 @@ sub call { my ($self, $method, @args) = @_; my $w = wantarray; log_trace { my $def = defined $w ? 1 : 0; "call() has been invoked on a remote handle; wantarray: '$def'" }; + $method = "start::${method}" if (caller(0)||'') eq 'start'; future { $self->connection->send(call => $self->id, $w, $method, @args)