[libnet-dbus-perl] 224/335: Fix parameter use in new connection callback

[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 c76fb80e243b63647e90a9f478122c381745ab90
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sat Nov 4 16:00:05 2006 -0500

    Fix parameter use in new connection callback
---
 t/30-server.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/30-server.t b/t/30-server.t
index c03fe98..07a5519 100644
--- a/t/30-server.t
+++ b/t/30-server.t
@@ -4,7 +4,7 @@ use Test::More tests => 11;
 use strict;
 use warnings;
 
-BEGIN { 
+BEGIN {
         use_ok('Net::DBus::Binding::Server');
         use_ok('Net::DBus::Binding::Connection');
         use_ok('Net::DBus::Reactor');
@@ -20,6 +20,7 @@ $reactor->manage($server);
 
 my $incoming;
 $server->set_connection_callback(sub {
+  $server = shift;
   $incoming = shift;
 });
 

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