[libnet-dbus-perl] 08/335: Fixed method names

[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 46f82105ba82262b9efb651e4e33bae34057d0b9
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Tue Oct 5 20:16:50 2004 +0000

    Fixed method names
---
 lib/Net/DBus/Object.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm
index a7843e6..bfad5ad 100644
--- a/lib/Net/DBus/Object.pm
+++ b/lib/Net/DBus/Object.pm
@@ -8,6 +8,8 @@ use Carp;
 our $VERSION = '0.0.1';
 
 use Net::DBus::RemoteObject;
+use Net::DBus::Binding::Message::Error;
+use Net::DBus::Binding::Message::MethodReturn;
 
 sub new {
     my $class = shift;
@@ -47,11 +49,11 @@ sub _dispatch {
 	    $self->$method_name(@args);
 	};
 	if ($@) {
-	    $reply = Net::DBus::Message::Error->new(replyto => $message,
-						    name => "org.freedesktop.DBus.Error.Failed",
-						    description => $@);
+	    $reply = Net::DBus::Binding::Message::Error->new(replyto => $message,
+							     name => "org.freedesktop.DBus.Error.Failed",
+							     description => $@);
 	} else {
-	    $reply = Net::DBus::Message::MethodReturn->new(call => $message);
+	    $reply = Net::DBus::Binding::Message::MethodReturn->new(call => $message);
 	    if (@ret == 1) {
 		my $iter = $reply->iterator;
 		$iter->append(shift @ret);
@@ -63,9 +65,9 @@ sub _dispatch {
 	    }
 	}
     } else {
-	$reply = Net::DBus::Message::Error->new(replyto => $message,
-						name => "org.freedesktop.DBus.Error.Failed",
-						description => "No such method " . ref($self) . "->" . $method_name);
+	$reply = Net::DBus::Binding::Message::Error->new(replyto => $message,
+							 name => "org.freedesktop.DBus.Error.Failed",
+							 description => "No such method " . ref($self) . "->" . $method_name);
     }
     
     $self->{service}->{bus}->{connection}->send($reply);

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