[libnet-dbus-perl] 159/335: Print out warning about possible time lag

[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 385447af808b8d6fae7b50d8bcaa1128484c2e3d
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Nov 21 11:40:38 2005 +0000

    Print out warning about possible time lag
---
 examples/lshal.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/examples/lshal.pl b/examples/lshal.pl
index e2c7d25..9151d1c 100644
--- a/examples/lshal.pl
+++ b/examples/lshal.pl
@@ -11,6 +11,11 @@ my $hal = $bus->get_service("org.freedesktop.Hal");
 # Get the device manager
 my $manager = $hal->get_object("/org/freedesktop/Hal/Manager", "org.freedesktop.Hal.Manager");
 
+print "Warning. There may be a slight pause while this next\n";
+print "method times out, if your version of HAL still just\n";
+print "silently ignores unsupported method calls, rather than\n";
+print "returning an error. The timeout is ~60 seconds\n";
+
 # List devices
 foreach my $dev (sort { $a cmp $b } @{$manager->GetAllDevices}) {
     print $dev, "\n";

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