[libnet-dbus-perl] 292/335: Tweaks to example programs

[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 d517b01574688eecc2c1fe0a062b6bf6777b5349
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Thu Jun 30 21:45:07 2011 +0100

    Tweaks to example programs
---
 examples/example-signal-emitter.pl  | 5 ++---
 examples/example-signal-receiver.pl | 5 +----
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/examples/example-signal-emitter.pl b/examples/example-signal-emitter.pl
index 7616346..ddf2c2a 100644
--- a/examples/example-signal-emitter.pl
+++ b/examples/example-signal-emitter.pl
@@ -22,10 +22,9 @@ sub new {
     my $class = shift;
     my $service = shift;
     my $self = $class->SUPER::new($service, "/org/designfu/TestService/object");
-				  
-    
+
     bless $self, $class;
-    
+
     return $self;
 }
 
diff --git a/examples/example-signal-receiver.pl b/examples/example-signal-receiver.pl
index 59041ff..30f484b 100644
--- a/examples/example-signal-receiver.pl
+++ b/examples/example-signal-receiver.pl
@@ -27,9 +27,6 @@ sub hello_signal_handler1 {
     my $greeting = shift;
     print ${$sig1ref} . " Received hello signal with greeting '$greeting'\n";
 
-    unless (${$sig2ref}) {
-	$object->disconnect_from_signal("HelloSignal", ${$sig1ref});
-    }
 }
 sub hello_signal_handler2 {
     my $greeting = shift;
@@ -45,7 +42,7 @@ $sig2 = $object->connect_to_signal("HelloSignal", \&hello_signal_handler2);
 my $reactor = Net::DBus::Reactor->main();
 
 my $ticks = 0;
-$reactor->add_timeout(1000, sub {
+$reactor->add_timeout(5000, sub {
     $object->emitHelloSignal();
     if ($ticks++ == 10) {
       $reactor->shutdown();

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