changeset 27950:ba57b7deb58a

Add Purple::XMLNode::get_name()
author Paul Aurich <paul@darkrain42.org>
date Tue, 18 Aug 2009 06:33:25 +0000
parents 491af22d8a01
children e5349d2cc7e5
files ChangeLog.API libpurple/plugins/perl/common/XMLNode.xs
diffstat 2 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/ChangeLog.API	Tue Aug 18 06:23:44 2009 +0000
+++ b/ChangeLog.API	Tue Aug 18 06:33:25 2009 +0000
@@ -154,6 +154,9 @@
 		* GntProgressBar and functions (Saleem Abdulrasool)
 
 	perl:
+		Added:
+		* Purple::XMLNode::get_name()
+
 		Changed:
 		* Made a bunch of functions act more perl-like. Call the new()
 		  functions as Class->new(...) instead of Class::new(...):
--- a/libpurple/plugins/perl/common/XMLNode.xs	Tue Aug 18 06:23:44 2009 +0000
+++ b/libpurple/plugins/perl/common/XMLNode.xs	Tue Aug 18 06:33:25 2009 +0000
@@ -16,6 +16,14 @@
     PROTOTYPE: $
 
 const char *
+xmlnode_get_name(node)
+	Purple::XMLNode node
+	CODE:
+	RETVAL = node->name;
+	OUTPUT:
+	RETVAL
+
+const char *
 xmlnode_get_attrib(node, attr)
 	Purple::XMLNode node
 	const char *attr