clean up calling system

[scpubgit/Object-Remote.git] / lib / Object / Remote / Connection.pm

diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm
index 4490e44..5a2f524 100644 (file)
--- a/lib/Object/Remote/Connection.pm
+++ b/lib/Object/Remote/Connection.pm
@@ -131,7 +131,7 @@ sub register_class_call_handler {
   $self->local_objects_by_id->{'class_call_handler'}
     = Object::Remote::CodeContainer->new(
         code => sub {
-          my ($class, $method) = splice @_, 0, 2;
+          my ($class, $method) = (shift, shift);
           use_module($class)->$method(@_);
         }
       );