This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to branch experimental in repository libnet-dbus-perl.
commit 149c7081c553028dc88a31b56f1c25d4f1018126 Author: Daniel P. Berrange <[email protected]> Date: Sun Aug 14 17:59:06 2005 +0000 Cache remote object instances, to avoid repeated lookup of introspection data. No longer pass interface name when getting object --- lib/Net/DBus/RemoteService.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/Net/DBus/RemoteService.pm b/lib/Net/DBus/RemoteService.pm index e5ab491..3780467 100644 --- a/lib/Net/DBus/RemoteService.pm +++ b/lib/Net/DBus/RemoteService.pm @@ -16,6 +16,7 @@ sub new { $self->{bus} = shift; $self->{service_name} = shift; + $self->{objects} = {}; bless $self, $class; @@ -37,11 +38,12 @@ sub get_service_name { sub get_object { my $self = shift; my $object_path = shift; - my $interface = shift; - return Net::DBus::RemoteObject->new($self, - $object_path, - $interface); + unless (defined $self->{objects}->{$object_path}) { + $self->{objects}->{$object_path} = Net::DBus::RemoteObject->new($self, + $object_path); + } + return $self->{objects}->{$object_path}; } 1; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
