# HG changeset patch
# User Paul Aurich <paul@darkrain42.org>
# Date 1250577205 0
# Node ID ba57b7deb58a9821b04ab8b7358ed1ba0ab6d777
# Parent  491af22d8a01d7599acdf4f29ae5b36c81862d66
Add Purple::XMLNode::get_name()

diff -r 491af22d8a01 -r ba57b7deb58a ChangeLog.API
--- 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(...):
diff -r 491af22d8a01 -r ba57b7deb58a libpurple/plugins/perl/common/XMLNode.xs
--- 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