libpurple/plugins/perl/common/SavedStatuses.xs

branch
release-2.1.0
changeset 18190
bcf28ef7e8ff
parent 17212
29c5fc5e0cdc
child 21737
fa92350ed598
--- a/libpurple/plugins/perl/common/SavedStatuses.xs	Sat Jun 16 19:21:06 2007 +0000
+++ b/libpurple/plugins/perl/common/SavedStatuses.xs	Sat Jun 16 19:44:59 2007 +0000
@@ -130,7 +130,7 @@
 void
 purple_savedstatuses_get_all()
 PREINIT:
-	const GList *l;
+	GList *l;
 PPCODE:
 	for (l = purple_savedstatuses_get_all(); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::SavedStatus")));
@@ -140,7 +140,7 @@
 purple_savedstatuses_get_popular(how_many)
 	unsigned int how_many
 PREINIT:
-	const GList *l;
+	GList *l;
 PPCODE:
 	for (l = purple_savedstatuses_get_popular(how_many); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::SavedStatus")));

mercurial