[libnet-dbus-perl] 169/335: Add binding for unregister_object_path. Add missing OUTPUT: section

[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 bda7f68209c0e192bb6036c0abbaf999eae82c10
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Wed Dec 21 12:08:24 2005 +0000

    Add binding for unregister_object_path. Add missing OUTPUT: section
---
 DBus.xs | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/DBus.xs b/DBus.xs
index 6aea07d..753726e 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -16,7 +16,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
- * $Id: DBus.xs,v 1.17 2005/11/21 10:54:48 dan Exp $
+ * $Id: DBus.xs,v 1.18 2005/12/21 12:08:24 dan Exp $
  */
 
 #include "EXTERN.h"
@@ -554,7 +554,24 @@ _register_object_path(con, path, code)
     CODE:
         SvREFCNT_inc(code);
         if (!(dbus_connection_register_object_path(con, path, &_path_callback_vtable, code))) {
-          croak("not enough memory to register object path");
+          croak("failure when registering object path");
+        }
+
+void
+_unregister_object_path(con, path)
+        DBusConnection *con;
+        char *path;
+    PREINIT:
+        SV *code;
+    CODE:
+        if (!(dbus_connection_get_object_path_data(con, path, (void **)&code))) {
+	  croak("failure when getting object path callback data");
+	}
+        if (code != NULL) {
+	  SvREFCNT_dec(code);
+	}
+        if (!(dbus_connection_unregister_object_path(con, path))) {
+          croak("failure when unregistering object path");
         }
 
 void
@@ -624,6 +641,8 @@ dbus_bus_request_name(con, service_name)
           _croak_error(&error);
         }
         RETVAL = reply;
+    OUTPUT:
+        RETVAL
 
 void
 DESTROY(con)

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