[libnet-dbus-perl] 300/335: Fix example code in object export tutorial

[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 29969d9ca7e4c12141d7868c7ed20c59d13d53ed
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Thu Nov 3 21:30:29 2011 +0000

    Fix example code in object export tutorial
---
 lib/Net/DBus/Tutorial/ExportingObjects.pod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Net/DBus/Tutorial/ExportingObjects.pod b/lib/Net/DBus/Tutorial/ExportingObjects.pod
index a95b073..b6aa9a3 100644
--- a/lib/Net/DBus/Tutorial/ExportingObjects.pod
+++ b/lib/Net/DBus/Tutorial/ExportingObjects.pod
@@ -103,8 +103,8 @@ oriented Perl (cf L<perltoot>):
           die "cannot load backend $module: $@" ;
       }
 
-      $self->{backends} = $module->new($self->get_service,
-                                       "/music/player/backend/$name");
+      $self->{backends}->{$name} = $module->new($self->get_service,
+                                                "/music/player/backend/$name");
   }
 
 Looking at this one might wonder what happens if the C<die>

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