pidgin: 249bb0ae: Add Purple::XMLNode::get_name()

[darkrain42 at pidgin.im]

-----------------------------------------------------------------
Revision: 249bb0ae011a3aacadd09bca9106b7ba41bf6b75
Ancestor: dc2fb6f2e0637cecc92ac096e55f1c7f5a33fdbd
Author: darkrain42 at pidgin.im
Date: 2009-08-18T06:33:25
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/249bb0ae011a3aacadd09bca9106b7ba41bf6b75

Modified files:
        ChangeLog.API libpurple/plugins/perl/common/XMLNode.xs

ChangeLog: 

Add Purple::XMLNode::get_name()

-------------- next part --------------
============================================================
--- ChangeLog.API	b536bf616f182f425e0b12d38e9ceb20f8b54f1c
+++ ChangeLog.API	fe3d3fa31d8f951d2da09627d0292a6d64b2c5f4
@@ -154,6 +154,9 @@ version 2.6.0 (??/??/2009):
 		* 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(...):
============================================================
--- libpurple/plugins/perl/common/XMLNode.xs	8f7ab0eccc4250d089138446de9f85703fc50064
+++ libpurple/plugins/perl/common/XMLNode.xs	f10a6afcd4503fcf379f243066c66ce1395f61bc
@@ -16,6 +16,14 @@ const char *
     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