[libnet-dbus-perl] 126/335: Remove lazy_binding parameter, since its basically broken. Dont rely on return type instrospection data

[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 e7c004cfb7c022f551b520d1e513a1e64e778b4e
Author: Daniel P. Berrange <d...@berrange.com>
Date:   Sat Oct 15 11:39:40 2005 +0000

    Remove lazy_binding parameter, since its basically broken. Dont rely on 
return type instrospection data
---
 lib/Net/DBus/RemoteObject.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lib/Net/DBus/RemoteObject.pm b/lib/Net/DBus/RemoteObject.pm
index 488493a..e3a1d83 100644
--- a/lib/Net/DBus/RemoteObject.pm
+++ b/lib/Net/DBus/RemoteObject.pm
@@ -186,8 +186,6 @@ sub connect_to_signal {
     my $self = shift;
     my $name = shift;
     my $code = shift;
-    # This will likely go away
-    my $lazy_binding = shift;
 
     my $interface = $self->{interface};
     if (!$interface) {
@@ -222,10 +220,10 @@ sub connect_to_signal {
            }
            &$code(@params);
        },
-                           $name,
-                           $interface,
-                           $lazy_binding ? undef : 
$self->{service}->get_service_name(),
-                           $self->{object_path});
+                            $name,
+                            $interface,
+                            $self->{service}->get_service_name(),
+                            $self->{object_path});
 }
 
 
@@ -319,7 +317,7 @@ sub _call_method {
        send_with_reply_and_block($call, $timeout * 1000);
     
     my @reply;
-    if ($ins) {
+    if ($ins && 0) { # Delibrately disabled, since python wont tell us about 
return values
        @reply = $ins->decode($reply, "methods", $name, "returns");
     } else {
        @reply = $reply->get_args_list;

-- 
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