[libnet-dbus-perl] 177/335: Fixed releasing of object path callback

[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 8d6989ab110935b765f11034e7aab4c2b4414853
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Thu Jan 26 19:19:40 2006 +0000

    Fixed releasing of object path callback
---
 DBus.xs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/DBus.xs b/DBus.xs
index c3ba8e6..701b0e7 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.19 2006/01/06 15:33:08 dan Exp $
+ * $Id: DBus.xs,v 1.20 2006/01/26 19:19:40 dan Exp $
  */
 
 #include "EXTERN.h"
@@ -564,12 +564,8 @@ _unregister_object_path(con, 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);
-	}
+        /* The associated data will be free'd by the previously
+           registered callback */
         if (!(dbus_connection_unregister_object_path(con, path))) {
           croak("failure when unregistering object path");
         }

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