diff -r 928e9c958b31 -r 315ba0216ae0 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