libpurple/plugins/perl/common/Connection.xs

branch
release-2.1.0
changeset 18122
9bf9970c1b6a
parent 18121
2d8ea56b9097
--- a/libpurple/plugins/perl/common/Connection.xs	Thu Jun 07 04:22:42 2007 +0000
+++ b/libpurple/plugins/perl/common/Connection.xs	Sat Jun 16 19:00:35 2007 +0000
@@ -72,7 +72,7 @@
 void
 purple_connections_get_all()
 PREINIT:
-	const GList *l;
+	GList *l;
 PPCODE:
 	for (l = purple_connections_get_all(); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Connection")));
@@ -81,7 +81,7 @@
 void
 purple_connections_get_connecting()
 PREINIT:
-	const GList *l;
+	GList *l;
 PPCODE:
 	for (l = purple_connections_get_connecting(); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Connection")));

mercurial