[libnet-dbus-perl] 70/335: Change service_name to get_service_name to match RemoteService.pm

[Intrigeri]

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 009397bd29d5208a76435c28b966454dc1f404a6
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Aug 15 18:12:05 2005 +0000

    Change service_name to get_service_name to match RemoteService.pm
---
 lib/Net/DBus/Service.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Net/DBus/Service.pm b/lib/Net/DBus/Service.pm
index 3e07209..0ab52b6 100644
--- a/lib/Net/DBus/Service.pm
+++ b/lib/Net/DBus/Service.pm
@@ -46,7 +46,7 @@ sub new {
     
     bless $self, $class;
 
-    $self->get_bus->get_connection->request_name($self->service_name);
+    $self->get_bus->get_connection->request_name($self->get_service_name);
     
     return $self;
 }
@@ -56,7 +56,7 @@ sub get_bus {
     return $self->{bus};
 }
 
-sub service_name {
+sub get_service_name {
     my $self = shift;
     return $self->{service_name};
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git