diff libpurple/plugins/perl/common/XMLNode.xs @ 27949:491af22d8a01

Fix the Perl XMLNode API so that calls don't need to explicitly pass the class when it doesn't make sense (and lengths are never passed). Fixes #9931 (more or less). committer: Paul Aurich <[e-mail]>

--- a/libpurple/plugins/perl/common/XMLNode.xs	Tue Aug 18 04:34:30 2009 +0000
+++ b/libpurple/plugins/perl/common/XMLNode.xs	Tue Aug 18 06:23:44 2009 +0000
@@ -4,21 +4,16 @@
 PROTOTYPES: ENABLE
 
 Purple::XMLNode
-xmlnode_copy(class, src)
+xmlnode_copy(src)
 	Purple::XMLNode src
-    C_ARGS:
-	src
 
 void
 xmlnode_free(node)
 	Purple::XMLNode node
 
 Purple::XMLNode
-xmlnode_from_str(class, str, size)
-	const char *str
-	gssize size
-    C_ARGS:
-	str, size
+xmlnode_from_str(const char *str, gssize length(str))
+    PROTOTYPE: $
 
 const char *
 xmlnode_get_attrib(node, attr)
@@ -78,11 +73,17 @@
 	const char *value
 
 gchar_own *
-xmlnode_to_formatted_str(node, len)
+xmlnode_to_formatted_str(node)
 	Purple::XMLNode node
-	int *len
+    CODE:
+	RETVAL = xmlnode_to_formatted_str(node, NULL);
+    OUTPUT:
+	RETVAL
 
 gchar_own *
-xmlnode_to_str(node, len)
+xmlnode_to_str(node)
 	Purple::XMLNode node
-	int *len
+    CODE:
+	RETVAL = xmlnode_to_str(node, NULL);
+    OUTPUT:
+	RETVAL