X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FProxy.pm;h=3c46eeb704a3ae16dfb885d2e1d2e1ed57c116dc;hb=1a2d795fd41e8560892ba92d1088f2bc81b01d21;hp=af6a902350f9421833defab820c607f8cf07e1c1;hpb=dc28afe80b27f0eb81eef66e6ba554a7c1fb6e41;p=scpubgit%2FObject-Remote.git diff --git a/lib/Object/Remote/Proxy.pm b/lib/Object/Remote/Proxy.pm index af6a902..3c46eeb 100644 --- a/lib/Object/Remote/Proxy.pm +++ b/lib/Object/Remote/Proxy.pm @@ -5,10 +5,11 @@ use strictures 1; sub AUTOLOAD { my $self = shift; (my $method) = (our $AUTOLOAD =~ /([^:]+)$/); + my $to_fire = $self->{method}; if ((caller(0)||'') eq 'start') { - $method = "start::${method}"; + $to_fire = "start::${to_fire}"; } - $self->{remote}->${\$self->{method}}($method => @_); + $self->{remote}->$to_fire($method => @_); } sub DESTROY { }