[libnet-dbus-perl] 93/335: Fix order of arguments in connect_to_signal

[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 74a9b1053488d0a98ea6035fced9406ebc55cebb
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Fri Sep 2 13:08:04 2005 +0000

    Fix order of arguments in connect_to_signal
---
 lib/Net/DBus/Object.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm
index d2dfdce..e306dc7 100644
--- a/lib/Net/DBus/Object.pm
+++ b/lib/Net/DBus/Object.pm
@@ -245,7 +245,7 @@ sub connect_to_signal_in {
     my $name = shift;
     my $interface = shift;
     my $code = shift;
-
+    
     $self->{callbacks}->{$interface} = {} unless
 	exists $self->{callbacks}->{$interface};
     $self->{callbacks}->{$interface}->{$name} = $code;
@@ -272,7 +272,7 @@ sub connect_to_signal {
 	    "use the connect_to_signal_in method instead";
     }
     
-    $self->connect_to_signal_in($name, $code, $interfaces[0]);
+    $self->connect_to_signal_in($name, $interfaces[0], $code);
 }
 
 

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