[libnet-dbus-perl] 313/335: Fix check for request_name method

[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 7ab24c33d069e6b43d7a26f14291f78285d89d16
Author: Daniel Collins <daniel.collins at smoothwall.net>
Date:   Sun Apr 7 12:19:52 2013 +0100

    Fix check for request_name method
    
    Signed-off-by: Daniel P. Berrange <dan at berrange.com>
---
 DBus.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DBus.xs b/DBus.xs
index 6f63c43..033b772 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -797,7 +797,7 @@ dbus_bus_request_name(con, service_name)
 	int reply;
     CODE:
 	dbus_error_init(&error);
-	if (!(reply = dbus_bus_request_name(con, service_name, 0, &error))) {
+	if ((reply = dbus_bus_request_name(con, service_name, 0, &error)) == -1) {
 	  _croak_error(&error);
 	}
 	RETVAL = reply;

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