[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 <d...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits